Mercurial > urweb

annotate 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
rev   line source
adamc@157 1 structure M : sig datatype t = A | B end = struct
adamc@157 2 datatype t = A | B
adamc@157 3 end
adamc@157 4
adamc@158 5 val a = M.A
adamc@158 6
adamc@157 7 datatype u = datatype M.t
adamc@157 8
adamc@157 9 val a : M.t = A
adamc@157 10 val a2 : u = a
adamc@158 11
adamc@158 12 structure M2 = M
adamc@158 13 structure M3 : sig datatype t = datatype M.t end = M2
adamc@158 14 structure M4 : sig datatype t = datatype M.t end = M
adamc@158 15
adamc@158 16 val b : M3.t = M4.B