Mercurial > urweb
diff src/monoize.sml @ 1176:51e596feec37
Tone down Reduce and compensate with a new push-lambda-inside-case rule in MonoOpt; expand more Basis synonyms in Monoize
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 02 Mar 2010 16:00:48 -0500 |
| parents | 983d9b38abc7 |
| children | ad9829c3c12c |
line wrap: on
line diff
--- a/src/monoize.sml Tue Mar 02 10:33:49 2010 -0500 +++ b/src/monoize.sml Tue Mar 02 16:00:48 2010 -0500 @@ -155,6 +155,12 @@ | 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"), _), _), _), _), _), _) =>