summaryrefslogtreecommitdiff
path: root/tests/naughty.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-12-05 10:43:06 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2011-12-05 10:43:06 -0500
commit02f3311b6fd7af07e63b5a0df2598b148783fd61 (patch)
tree1ef7b83959a5e93a0265a1daf20c7848984a0b45 /tests/naughty.ur
parentd1808f886236e02fa5de7bdfd3c956845eca7e8e (diff)
Treat [naughtyDebug] as pure for optimization purposes
Diffstat (limited to 'tests/naughty.ur')
-rw-r--r--tests/naughty.ur12
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/naughty.ur b/tests/naughty.ur
new file mode 100644
index 00000000..14919f84
--- /dev/null
+++ b/tests/naughty.ur
@@ -0,0 +1,12 @@
+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*)