Mercurial > urweb

diff src/elaborate.sml @ 159:1e382d10e832

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Abstracting datatypes with signature ascription
author Adam Chlipala <adamc@hcoop.net>
date Thu, 24 Jul 2008 16:41:12 -0400
parents b4b70de488e9
children 870e8abbe3b9
line wrap: on
line diff
--- a/src/elaborate.sml	Thu Jul 24 16:36:41 2008 -0400
+++ b/src/elaborate.sml	Thu Jul 24 16:41:12 2008 -0400
@@ -1724,6 +1724,9 @@
                                      case sgi1 of
                                          L'.SgiConAbs (x', n1, k1) => found (x', n1, k1, NONE)
                                        | L'.SgiCon (x', n1, k1, c1) => found (x', n1, k1, SOME c1)
+                                       | L'.SgiDatatype (x', n1, _) => found (x', n1, (L'.KType, loc), NONE)
+                                       | L'.SgiDatatypeImp (x', n1, m1, ms, s) =>
+                                         found (x', n1, (L'.KType, loc), SOME (L'.CModProj (m1, ms, s), loc))
                                        | _ => NONE
                                  end)