Mercurial > urweb

con stringify = fold (fn nm :: Name => fn u :: Unit => fn t :: {Type} => [nm = string] ++ t) []

signature S = sig
        con rs :: {Unit}
end

signature S' = sig
        con rs :: {Unit}

        val handler : $(stringify rs) -> page
        val page : unit -> page
end

functor F (M : S) : S' where con rs = M.rs = struct
        con rs = M.rs

        val handler = fn x : $(stringify M.rs) => <html><body>
                OK.
        </body></html>

        val page = fn () => <html><body>

        </body></html>
end

structure M = F(struct
        con rs = []
end)

open M
author	Adam Chlipala <adamc@hcoop.net>
date	Tue, 22 Jul 2008 18:20:13 -0400
parents
children	eb16f2aadbe9