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>
                <lform>
                        {fold [fn rs :: {Unit} => xml lform [] (stringify rs)]
                                (fn nm :: Name => fn u :: Unit => fn rest :: {Unit} =>
                                        fn frag : xml lform [] (stringify rest) =>
                                                <lform><li>{frag} <textbox{nm}/></li></lform>)
                                <lform></lform>
                                [rs]}

                        <submit action={handler}/>
                </lform>
        </body></html>
end

structure M = F(struct
        con rs = [A, B, C]
end)

open M
author	Adam Chlipala <adamc@hcoop.net>
date	Tue, 22 Jul 2008 18:46:04 -0400
parents	80ac94b54e41
children	15e8b9775539