annotate tests/naughty.ur @ 1908:ab1a3737b306

make clean: Clean bin/mlton, src/urweb.mlton.lex, src/urweb.mlton.grm Signed-off-by: Anders Kaseorg <andersk@mit.edu> --- Makefile.am | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
author Anders Kaseorg <andersk@mit.edu>
date Fri, 22 Nov 2013 09:36:14 -0500
parents deeeb036c8ed
children
rev   line source
adam@1633 1 fun main () : transaction page =
adam@1633 2 if naughtyDebug "hello" = 0 then
adam@1633 3 return <xml><body></body></xml>
adam@1633 4 else
adam@1633 5 error <xml>Uhoh!</xml>
adam@1633 6
adam@1633 7 (*fun main () : transaction page =
adam@1633 8 let
adam@1633 9 val a = naughtyDebug ""
adam@1633 10 in
adam@1633 11 return <xml><body></body></xml>
adam@1633 12 end*)