]> Git — Sourcephile - haskell/symantic-parser.git/blob - test/Golden/Machine/G10.expected.txt
add registers
[haskell/symantic-parser.git] / test / Golden / Machine / G10.expected.txt
1 pushValue GHC.Show.show
2 minReads=(Right 1)
3 mayRaise=[ExceptionFailure]
4 join <hidden>
5 minReads=(Right 0)
6 mayRaise=[]
7 | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
8 | minReads=(Right 0)
9 | mayRaise=[]
10 | ret
11 | minReads=(Right 0)
12 | mayRaise=[]
13 catch ExceptionFailure
14 minReads=(Right 1)
15 mayRaise=[ExceptionFailure]
16 | <ok>
17 | | pushValue (\x_0 -> 'a')
18 | | minReads=(Right 1)
19 | | mayRaise=[ExceptionFailure]
20 | | read ((GHC.Classes.==) 'a')
21 | | minReads=(Right 1)
22 | | mayRaise=[ExceptionFailure]
23 | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
24 | | minReads=(Right 0)
25 | | mayRaise=[]
26 | | commit ExceptionFailure
27 | | minReads=(Right 0)
28 | | mayRaise=[]
29 | | refJoin <hidden>
30 | | minReads=(Right 0)
31 | | mayRaise=[]
32 | <ko>
33 | | pushInput
34 | | minReads=(Right 1)
35 | | mayRaise=[ExceptionFailure]
36 | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
37 | | j_1
38 | | _) -> i_0 GHC.Classes.== j_1)
39 | | minReads=(Right 1)
40 | | mayRaise=[ExceptionFailure]
41 | | choicesBranch
42 | | minReads=(Right 1)
43 | | mayRaise=[ExceptionFailure]
44 | | | <branch (\x_0 -> x_0)>
45 | | | | pushValue (\x_0 -> 'b')
46 | | | | minReads=(Right 1)
47 | | | | mayRaise=[ExceptionFailure]
48 | | | | read ((GHC.Classes.==) 'b')
49 | | | | minReads=(Right 1)
50 | | | | mayRaise=[ExceptionFailure]
51 | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
52 | | | | minReads=(Right 0)
53 | | | | mayRaise=[]
54 | | | | refJoin <hidden>
55 | | | | minReads=(Right 0)
56 | | | | mayRaise=[]
57 | | | <default>
58 | | | | fail []
59 | | | | minReads=(Left ExceptionFailure)
60 | | | | mayRaise=[ExceptionFailure]