diff options
author | Adam Chlipala <adam@chlipala.net> | 2013-12-06 08:44:26 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2013-12-06 08:44:26 -0500 |
commit | 64169805c117326ccd9af8198cd16d581cc25c2d (patch) | |
tree | 4c367fac45a366ec96158151e62b1587ef5fd668 /src/monoize.sml | |
parent | d89fd37a66ab73ea7eba5e2574c4e679c4026f0b (diff) |
Add 'xhead' case to Monoize
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 3df6ec92..228d22cd 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) |