Mercurial > urweb

annotate tests/dtfunctor.ur @ 2238:7f92d70a326e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Only use string (rather than numeric, etc.) primitives in parsed SQL statements.
author Ziv Scully <ziv@mit.edu>
date Mon, 06 Jul 2015 01:31:04 -0700
parents 21ecf340f05c
children
rev   line source
adam@1704 1 functor Make(M : sig end) = struct
adam@1704 2 datatype t = A | B
adam@1704 3 end
adam@1704 4
adam@1704 5 structure A = Make(struct end)
adam@1704 6 structure B = Make(struct end)
adam@1704 7
adam@1704 8 fun main (x : A.t) (y : B.t) : transaction page =
adam@1704 9 return <xml/>