diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-12-19 10:27:58 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-12-19 10:27:58 -0500 |
| commit | a2854d6b8db55b9c6e69d16262ea182ab9bd307d (patch) | |
| tree | 2ae9890ec2aaa8c2404ce09448a078fec7857bbb /src/corify.sml | |
| parent | ba83ee9a9b3d2539b820c9fcb1cb7cd42226da6c (diff) | |
Monad type class seems to be working
Diffstat (limited to 'src/corify.sml')
| -rw-r--r-- | src/corify.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/corify.sml b/src/corify.sml index 8bb1a925..2383ee03 100644 --- a/src/corify.sml +++ b/src/corify.sml @@ -926,8 +926,10 @@ fun corifyDecl mods (all as (d, loc : EM.span), st) = val e = (L.EModProj (m, ms, s), loc) val ef = (L.EModProj (basis, [], "bind"), loc) + val ef = (L.ECApp (ef, (L.CModProj (basis, [], "transaction"), loc)), loc) val ef = (L.ECApp (ef, ran'), loc) val ef = (L.ECApp (ef, ran), loc) + val ef = (L.EApp (ef, (L.EModProj (basis, [], "transaction_monad"), loc)), loc) val ef = (L.EApp (ef, (L.EApp (e, (L.ERel 0, loc)), loc)), loc) val eat = (L.CApp ((L.CModProj (basis, [], "transaction"), loc), |