Mercurial > urweb

view tests/datatypeP.ur @ 2174:ce312cad5ecd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use correct OpenSSL thread safety macros on OS X (closes #209) Create an Autoconf test to determine if pthread_t is a pointer or scalar type, and use the appropriate CRYPTO_THREADID_set macro based on the result.
author Benjamin Barenblat <bbaren at mit.edu>
date Sun, 20 Sep 2015 17:46:07 -0400
parents 71bafe66dbe1
children
line wrap: on
line source
datatype option a = None | Some of a

val none : option int = None
val some_1 : option int = Some 1

val f = fn t ::: Type => fn x : option t =>
        case x of None => None | Some x => Some (Some x)

val none_again = f none
val some_1_again = f some_1

val show = fn t ::: Type => fn x : option t => case x of None => "None" | Some _ => "Some"

val page = fn x => <html><body>
        {cdata (show x)}
</body></html>

val main : unit -> page = fn () => <html><body>
        <li><a link={page none_again}>None</a></li>
        <li><a link={page some_1_again}>Some 1</a></li>
</body></html>