annotate tests/naughty.ur @ 2008:93ff76058825

HTML5 data-* attributes
author Adam Chlipala <adam@chlipala.net>
date Fri, 02 May 2014 15:32:10 -0400
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*)