diff options
author | 2013-12-09 17:25:53 -0500 | |
---|---|---|
committer | 2013-12-09 17:25:53 -0500 | |
commit | 0c8bb96d679f083438ceb0bff70d79cb6ff19f7f (patch) | |
tree | 42a98dfa7c7fef29d0f0f0621671617376172100 /src/monoize.sml | |
parent | 049f9219ead236d4db6c7341db0bcb5944d69943 (diff) | |
parent | 40fffc31a12b6b6bae3998cc0ff6aee30f8fe07b (diff) |
Merge
Diffstat (limited to 'src/monoize.sml')
-rw-r--r-- | src/monoize.sml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 291c0fa3..ad53cf18 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -215,6 +215,7 @@ fun monoType env = | L.CFfi ("Basis", "unit") => (L'.TRecord [], loc) | L.CFfi ("Basis", "page") => (L'.TFfi ("Basis", "string"), loc) + | L.CFfi ("Basis", "xhead") => (L'.TFfi ("Basis", "string"), loc) | L.CFfi ("Basis", "xbody") => (L'.TFfi ("Basis", "string"), loc) | L.CFfi ("Basis", "xtable") => (L'.TFfi ("Basis", "string"), loc) | L.CFfi ("Basis", "xtr") => (L'.TFfi ("Basis", "string"), loc) |