copyright: comply with REUSE-3.0
[haskell/symantic-parser.git] / test / Golden / Grammar / OptimizeGrammar / G12.expected.txt
index 3ca3b382633dc6c4dae1fe0dae88a6d69449379e..c2393c2c8307cd2a6b405707d408a84f2676f3f7 100644 (file)
@@ -1 +1,10 @@
-"<*>\n+ <*>\n| + pure (\\u1 -> (\\u2 -> u1 Term))\n| ` <|>\n|   + <*>\n|   | + <*>\n|   | | + pure (\\u1 -> (\\u2 -> (\\u3 -> u1 : u2 u3)))\n|   | | ` satisfy\n|   | ` rec <hidden>\n|   ` pure (\\u1 -> u1)\n` eof\n"
\ No newline at end of file
+lets
+` <*>
+  + <*>
+  | + pure (\x_0 -> \x_1 -> GHC.Show.show x_0)
+  | ` chainPre
+  |   + <*>
+  |   | + pure (GHC.Types.:)
+  |   | ` satisfy (\t_0 -> ('a' GHC.Classes.== t_0) GHC.Classes.|| (('b' GHC.Classes.== t_0) GHC.Classes.|| (('c' GHC.Classes.== t_0) GHC.Classes.|| (('d' GHC.Classes.== t_0) GHC.Classes.|| GHC.Types.False))))
+  |   ` pure GHC.Types.[]
+  ` eof