Mercurial > urweb

comparison tests/datatypeMod.lac @ 158:b4b70de488e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More datatype module stuff
author Adam Chlipala <adamc@hcoop.net>
date Thu, 24 Jul 2008 16:36:41 -0400
parents adc4e42e3adc
children 1e382d10e832
comparison
equal deleted inserted replaced
157:adc4e42e3adc 158:b4b70de488e9
1 structure M : sig datatype t = A | B end = struct 1 structure M : sig datatype t = A | B end = struct
2 datatype t = A | B 2 datatype t = A | B
3 end 3 end
4
5 val a = M.A
4 6
5 datatype u = datatype M.t 7 datatype u = datatype M.t
6 8
7 val a : M.t = A 9 val a : M.t = A
8 val a2 : u = a 10 val a2 : u = a
11
12 structure M2 = M
13 structure M3 : sig datatype t = datatype M.t end = M2
14 structure M4 : sig datatype t = datatype M.t end = M
15
16 val b : M3.t = M4.B