Mercurial > urweb

view tests/type_class.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 ba4d7c33a45f
children
line wrap: on
line source
class default t = t

val string_default : default string = "Hi"
val int_default : default int = 0

val default : t :: Type -> default t -> t =
        fn t :: Type => fn d : default t => d
val hi = default [string] _
val zero = default [int] _

val frob : t :: Type -> default t -> t =
        fn t :: Type => fn _ : default t => default [t] _
val hi_again = frob [string] _
val zero_again = frob [int] _

val main : unit -> page = fn () => <html><body>
        {cdata hi_again}
</body></html>