diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-10 15:49:14 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-10 15:49:14 -0400 |
| commit | 0e95aa2c802d0a4fa54ebf985133eb2584a1d9ba (patch) | |
| tree | f8d063fc040cfc82b2b55093ef6053799b1c0a97 /src/monoize.sml | |
| parent | 0c1f369955bcdfe949bb6793812ef8ead2963228 (diff) | |
More with attributes and efficient serialization
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 0b868d59..1d95a303 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -81,7 +81,7 @@ val dummyExp = (L'.EPrim (Prim.Int 0), E.dummySpan) fun attrifyExp (e, tAll as (t, loc)) = case t of - L'.TFfi ("Basis", "string") => e + L'.TFfi ("Basis", "string") => (L'.EFfiApp ("Basis", "attrifyString", [e]), loc) | L'.TFfi ("Basis", "int") => (L'.EFfiApp ("Basis", "attrifyInt", [e]), loc) | L'.TFfi ("Basis", "float") => (L'.EFfiApp ("Basis", "attrifyFloat", [e]), loc) | _ => (E.errorAt loc "Don't know how to encode attribute type"; |