annotate tests/naughty.ur @ 1889:c40ed80be943

Fix regression in execution of 'onError' handlers
author Adam Chlipala <adam@chlipala.net>
date Thu, 14 Nov 2013 06:16:58 -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*)