]> Git — Sourcephile - haskell/symantic-parser.git/blob - tests/Golden/Grammar/ViewGrammar/G18.expected.txt
impl: add `programWriter`
[haskell/symantic-parser.git] / tests / Golden / Grammar / ViewGrammar / G18.expected.txt
1 lets
2 ` <*>
3 + pure GHC.Show.show
4 ` <|>
5 + try
6 | ` <*>
7 | + <*>
8 | | + pure (GHC.Types.:)
9 | | ` <*>
10 | | + <*>
11 | | | + pure (\u_0 -> \u_1 -> u_0)
12 | | | ` pure 'a'
13 | | ` satisfy ((GHC.Classes.==) 'a')
14 | ` <*>
15 | + <*>
16 | | + pure (GHC.Types.:)
17 | | ` <*>
18 | | + <*>
19 | | | + pure (\u_0 -> \u_1 -> u_0)
20 | | | ` pure 'b'
21 | | ` satisfy ((GHC.Classes.==) 'b')
22 | ` <*>
23 | + <*>
24 | | + pure (GHC.Types.:)
25 | | ` <*>
26 | | + <*>
27 | | | + pure (\u_0 -> \u_1 -> u_0)
28 | | | ` pure 'c'
29 | | ` satisfy ((GHC.Classes.==) 'c')
30 | ` pure GHC.Types.[]
31 ` try
32 ` <*>
33 + <*>
34 | + pure (GHC.Types.:)
35 | ` <*>
36 | + <*>
37 | | + pure (\u_0 -> \u_1 -> u_0)
38 | | ` pure 'd'
39 | ` satisfy ((GHC.Classes.==) 'd')
40 ` <*>
41 + <*>
42 | + pure (GHC.Types.:)
43 | ` <*>
44 | + <*>
45 | | + pure (\u_0 -> \u_1 -> u_0)
46 | | ` pure 'e'
47 | ` satisfy ((GHC.Classes.==) 'e')
48 ` pure GHC.Types.[]