Mercurial > urweb
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