diff tests/datatypeMod.lac @ 158:b4b70de488e9

More datatype module stuff
author Adam Chlipala <adamc@hcoop.net>
date Thu, 24 Jul 2008 16:36:41 -0400
parents adc4e42e3adc
children 1e382d10e832
line wrap: on
line diff
--- a/tests/datatypeMod.lac	Thu Jul 24 15:49:30 2008 -0400
+++ b/tests/datatypeMod.lac	Thu Jul 24 16:36:41 2008 -0400
@@ -2,7 +2,15 @@
         datatype t = A | B
 end
 
+val a = M.A
+
 datatype u = datatype M.t
 
 val a : M.t = A
 val a2 : u = a
+
+structure M2 = M
+structure M3 : sig datatype t = datatype M.t end = M2
+structure M4 : sig datatype t = datatype M.t end = M
+
+val b : M3.t = M4.B