diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-29 14:28:44 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-29 14:28:44 -0400 |
| commit | 6855e4766fa8d07e2f3e3cd468de6c58fed0c903 (patch) | |
| tree | 4098c6f3f8d9bacfe652f2b210ede504a9a5d4e9 /src/cjrize.sml | |
| parent | 166bccac16d35d8a4b75a4c04c7479b389a81c4f (diff) | |
Start of unurlify for datatypes
Diffstat (limited to 'src/cjrize.sml')
| -rw-r--r-- | src/cjrize.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml index c60ff75f..cf32e414 100644 --- a/src/cjrize.sml +++ b/src/cjrize.sml @@ -84,7 +84,7 @@ fun cifyTyp ((t, loc), sm) = in ((L'.TRecord si, loc), sm) end - | L.TNamed n => ((L'.TNamed n, loc), sm) + | L.TNamed n => ((L'.TDatatype n, loc), sm) | L.TFfi mx => ((L'.TFfi mx, loc), sm) val dummye = (L'.EPrim (Prim.Int 0), ErrorMsg.dummySpan) |