diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-09-03 12:51:05 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-09-03 12:51:05 -0400 |
| commit | cd28ea2ee01ac023b7b1dfac39ae5ddf4ded5c4e (patch) | |
| tree | d792d445b5fbc6b0a16eadef95d70510f9037dd6 /src/monoize.sml | |
| parent | 3c860c3c95d4d085499fd01e3140f32aafbc1bd7 (diff) | |
An abstract type of IDs
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 7849e1cd..9f100a3f 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -219,6 +219,7 @@ fun monoType env = | L.CApp ((L.CApp ((L.CFfi ("Basis", "xhtml"), _), _), _), _) => (L'.TFfi ("Basis", "string"), loc) | L.CFfi ("Basis", "css_class") => (L'.TFfi ("Basis", "string"), loc) + | L.CFfi ("Basis", "id") => (L'.TFfi ("Basis", "string"), loc) | L.CApp ((L.CFfi ("Basis", "serialized"), _), _) => (L'.TFfi ("Basis", "string"), loc) |