Mercurial > urweb

annotate tests/cookie.ur @ 2240:88cc0f44c940

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename C functions and remove functors nested inside modules.
author Ziv Scully <ziv@mit.edu>
date Sun, 19 Jul 2015 19:03:11 -0700
parents 1626dcba13ee
children
rev   line source
adamc@459 1 cookie c : string
adamc@459 2
adamc@466 3 fun other () =
adamc@463 4 so <- getCookie c;
adamc@459 5 case so of
adamc@459 6 None => return <xml>No cookie</xml>
adamc@459 7 | Some s => return <xml>Cookie: {[s]}</xml>
adamc@466 8
adamc@466 9 structure M = struct
adamc@466 10 fun aux () =
adamc@466 11 setCookie c "Hi";
adamc@466 12 so <- getCookie c;
adamc@466 13 case so of
adamc@466 14 None => return <xml>No cookie</xml>
adamc@466 15 | Some s => return <xml><body>Cookie: {[s]}<br/>
adamc@466 16 <a link={other ()}>Other</a></body></xml>
adamc@466 17 end
adamc@466 18
adamc@466 19 fun main () : transaction page = return <xml><body>
adamc@466 20 <a link={other ()}>Other</a><br/>
adamc@466 21 <a link={M.aux ()}>Aux</a><br/>
adamc@466 22 </body></xml>