copyright: comply with REUSE-3.0
[haskell/symantic-parser.git] / test / Golden / Grammar / OptimizeGrammar / G11.expected.txt
index 280b6a48bd00d5a2eed2702c1956ce9031c05b55..0d85c53a995ed201dd45a107b2d88c7b8adc965e 100644 (file)
@@ -1,14 +1,10 @@
 lets
-+ let <hidden>
-| ` <|>
-|   + <*>
-|   | + <*>
-|   | | + pure (\u1 -> (\u2 -> (\u3 -> 'a' : u2 u3)))
-|   | | ` satisfy
-|   | ` rec <hidden>
-|   ` pure (\u1 -> u1)
 ` <*>
   + <*>
-  | + pure (\u1 -> (\u2 -> u1 Term))
-  | ` ref <hidden>
-  ` satisfy
+  | + pure (\x_0 -> \x_1 -> GHC.Show.show x_0)
+  | ` chainPre
+  |   + <*>
+  |   | + pure (\x_0 -> (GHC.Types.:) 'a')
+  |   | ` satisfy ((GHC.Classes.==) 'a')
+  |   ` pure GHC.Types.[]
+  ` satisfy ((GHC.Classes.==) 'b')