diff options
Diffstat (limited to 'src/corify.sml')
-rw-r--r-- | src/corify.sml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/corify.sml b/src/corify.sml index c03fcf3a..50d47068 100644 --- a/src/corify.sml +++ b/src/corify.sml @@ -817,6 +817,7 @@ fun corifyDecl ((d, loc : EM.span), st) = val ef = (L.EModProj (basis, [], "bind"), loc) val ef = (L.ECApp (ef, ran'), loc) + val ef = (L.ECApp (ef, ran), loc) val ef = (L.EApp (ef, (L.EApp (e, (L.ERel 0, loc)), loc)), loc) val eat = (L.CApp ((L.CModProj (basis, [], "transaction"), loc), |