From 7e8a4397825d3ee1addd7326104759294deff832 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 24 Jul 2008 16:41:12 -0400 Subject: Abstracting datatypes with signature ascription --- src/elaborate.sml | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src') diff --git a/src/elaborate.sml b/src/elaborate.sml index 9cc695e1..d5bae866 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -1724,6 +1724,9 @@ fun subSgn (env, denv) sgn1 (sgn2 as (_, loc2)) = 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) -- cgit v1.2.3