Mercurial > urweb

view tests/naughty.ur @ 2276:c05f9a5e0f0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Progress on free paths, but consolidation seems to fail more with them.
author Ziv Scully <ziv@mit.edu>
date Mon, 09 Nov 2015 13:37:31 -0500
parents deeeb036c8ed
children
line wrap: on
line source
fun main () : transaction page =
    if naughtyDebug "hello" = 0 then
        return <xml><body></body></xml>
    else
        error <xml>Uhoh!</xml>

(*fun main () : transaction page =
    let
        val a = naughtyDebug ""
    in
        return <xml><body></body></xml>
    end*)