Mercurial > urweb

view tests/open_functor.lac @ 224:cb8a68964ebb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
GROUP BY added to query type, with trivial parsing, for now
author Adam Chlipala <adamc@hcoop.net>
date Thu, 21 Aug 2008 12:54:09 -0400
parents 80ac94b54e41
children
line wrap: on
line source
signature S = sig
        type t
        val x : t
end

functor F (M : S) : S where type t = M.t = struct
        type t = M.t
        val x = M.x
end

structure M = F(struct
        type t = int
        val x = 0
end)

open M