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