]> Git — Sourcephile - haskell/symantic-parser.git/blob - tests/Golden/Grammar/OptimizeGrammar/G18.expected.txt
!fixup impl: move `liftTypedString` to `Language.Haskell.TH.Show`
[haskell/symantic-parser.git] / tests / Golden / Grammar / OptimizeGrammar / G18.expected.txt
1 lets
2 ` <*>
3 + pure GHC.Show.show
4 ` <|>
5 + try
6 | ` <*>
7 | + <*>
8 | | + <*>
9 | | | + pure (\u_0 -> \u_1 -> \u_2 -> (GHC.Types.:) 'a' ((GHC.Types.:) 'b' ((GHC.Types.:) 'c' GHC.Types.[])))
10 | | | ` satisfy ((GHC.Classes.==) 'a')
11 | | ` satisfy ((GHC.Classes.==) 'b')
12 | ` satisfy ((GHC.Classes.==) 'c')
13 ` try
14 ` <*>
15 + <*>
16 | + pure (\u_0 -> \u_1 -> (GHC.Types.:) 'd' ((GHC.Types.:) 'e' GHC.Types.[]))
17 | ` satisfy ((GHC.Classes.==) 'd')
18 ` satisfy ((GHC.Classes.==) 'e')