Mercurial > urweb

diff src/mono_shake.sml @ 168:25b169416ea8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Storing datatype constructors in type references past monoize
author Adam Chlipala <adamc@hcoop.net>
date Tue, 29 Jul 2008 15:43:17 -0400
parents 6847741e1f5f
children eb3f9913bf31
line wrap: on
line diff
--- a/src/mono_shake.sml	Tue Jul 29 15:25:42 2008 -0400
+++ b/src/mono_shake.sml	Tue Jul 29 15:43:17 2008 -0400
@@ -56,7 +56,7 @@
 
         fun typ (c, s) =
             case c of
-                TNamed n =>
+                TDatatype (n, _) =>
                 if IS.member (#con s, n) then
                     s
                 else