Mercurial > urweb

diff src/cjrize.sml @ 166:a991431b77eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Start of unurlify for datatypes
author Adam Chlipala <adamc@hcoop.net>
date Tue, 29 Jul 2008 14:28:44 -0400
parents e52dfb1e6b19
children 25b169416ea8
line wrap: on
line diff
--- a/src/cjrize.sml	Tue Jul 29 13:50:53 2008 -0400
+++ b/src/cjrize.sml	Tue Jul 29 14:28:44 2008 -0400
@@ -84,7 +84,7 @@
         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)