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