add benchmarks
[haskell/symantic-parser.git] / test / Golden / Machine / G1.expected.txt
index 13bf6c16db8d41a44aa6a113aaf5f6b6b1b08add..40357210cc363d3a4476b15570d674e3cd549717 100644 (file)
@@ -1,18 +1,18 @@
 pushValue Term
   minReads=(Right 1)
-  mayRaise=["fail"]
+  mayRaise=[ExceptionFailure]
 pushValue (\u1 -> (\u2 -> u1))
   minReads=(Right 1)
-  mayRaise=["fail"]
+  mayRaise=[ExceptionFailure]
 pushValue 'a'
   minReads=(Right 1)
-  mayRaise=["fail"]
+  mayRaise=[ExceptionFailure]
 lift2Value (\u1 -> (\u2 -> u1 u2))
   minReads=(Right 1)
-  mayRaise=["fail"]
+  mayRaise=[ExceptionFailure]
 read ('a' ==)
   minReads=(Right 1)
-  mayRaise=["fail"]
+  mayRaise=[ExceptionFailure]
 lift2Value (\u1 -> (\u2 -> u1 u2))
   minReads=(Right 0)
   mayRaise=[]