summaryrefslogtreecommitdiff
path: root/src/monoize.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2010-03-02 16:00:48 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2010-03-02 16:00:48 -0500
commit46e60fb6904b05340446e12d4a88a090b19b85fa (patch)
tree35ff2e860464207021d5a23b6c819398e9d19a7c /src/monoize.sml
parent74e835c7db56fb5e716add3bb8fe19534b557282 (diff)
Tone down Reduce and compensate with a new push-lambda-inside-case rule in MonoOpt; expand more Basis synonyms in Monoize
Diffstat (limited to 'src/monoize.sml')
-rw-r--r--src/monoize.sml6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml
index a5dc3929..5f616c05 100644
--- a/src/monoize.sml
+++ b/src/monoize.sml
@@ -155,6 +155,12 @@ fun monoType env =
| L.CApp ((L.CFfi ("Basis", "read"), _), t) =>
readType (mt env dtmap t, loc)
+ | L.CFfi ("Basis", "unit") => (L'.TRecord [], loc)
+ | L.CFfi ("Basis", "page") => (L'.TFfi ("Basis", "string"), loc)
+ | L.CFfi ("Basis", "xbody") => (L'.TFfi ("Basis", "string"), loc)
+ | L.CFfi ("Basis", "xtr") => (L'.TFfi ("Basis", "string"), loc)
+ | L.CFfi ("Basis", "xform") => (L'.TFfi ("Basis", "string"), loc)
+
| L.CFfi ("Basis", "url") => (L'.TFfi ("Basis", "string"), loc)
| L.CFfi ("Basis", "mimeType") => (L'.TFfi ("Basis", "string"), loc)
| L.CApp ((L.CApp ((L.CApp ((L.CFfi ("Basis", "xml"), _), _), _), _), _), _) =>