diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/monoize.sml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index f58e56ea..a330a8bd 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -81,7 +81,13 @@ val dummyExp = (L'.EPrim (Prim.Int 0), E.dummySpan) fun attrifyExp env (e, tAll as (t, loc)) = case #1 e of - L'.EClosure (fnam, args) => + L'.EClosure (fnam, [(L'.ERecord [], _)]) => + let + val (_, _, _, s) = Env.lookupENamed env fnam + in + (L'.EPrim (Prim.String s), loc) + end + | L'.EClosure (fnam, args) => let val (_, ft, _, s) = Env.lookupENamed env fnam val ft = monoType env ft |