Mercurial > urweb

view demo/listShop.ur @ 853:19fdeef40ada

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Factor out common request functionality, in preparation for supporting different protocols
author Adam Chlipala <adamc@hcoop.net>
date Tue, 23 Jun 2009 14:05:12 -0400
parents 8084fa9216de
children
line wrap: on
line source
structure I = struct
    type t = int
    val toString = show
    val fromString = read
end

structure S = struct
    type t = string
    val toString = show
    val fromString = read
end

structure IL = ListFun.Make(I)
structure SL = ListFun.Make(S)

fun main () = return <xml><body>
  Pick your poison:<br/>
  <li> <a link={IL.main ()}>Integers</a></li>
  <li> <a link={SL.main ()}>Strings</a></li>
</body></xml>