]> Git — Sourcephile - haskell/symantic-parser.git/blob - test/Golden/Machine/G10.expected.txt
machine: optimize ifThenElse on constant
[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 -> \x_1 -> x_0)
18 | | minReads=(Right 1)
19 | | mayRaise=[ExceptionFailure]
20 | | pushValue ('a')
21 | | minReads=(Right 1)
22 | | mayRaise=[ExceptionFailure]
23 | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
24 | | minReads=(Right 1)
25 | | mayRaise=[ExceptionFailure]
26 | | read ((GHC.Classes.==) 'a')
27 | | minReads=(Right 1)
28 | | mayRaise=[ExceptionFailure]
29 | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
30 | | minReads=(Right 0)
31 | | mayRaise=[]
32 | | commit ExceptionFailure
33 | | minReads=(Right 0)
34 | | mayRaise=[]
35 | | refJoin <hidden>
36 | | minReads=(Right 0)
37 | | mayRaise=[]
38 | <ko>
39 | | pushInput
40 | | minReads=(Right 1)
41 | | mayRaise=[ExceptionFailure]
42 | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
43 | | j_1
44 | | _) -> i_0 GHC.Classes.== j_1)
45 | | minReads=(Right 1)
46 | | mayRaise=[ExceptionFailure]
47 | | choicesBranch [(\x_0 -> x_0)]
48 | | minReads=(Right 1)
49 | | mayRaise=[ExceptionFailure]
50 | | | <branch>
51 | | | | pushValue (\x_0 -> \x_1 -> x_0)
52 | | | | minReads=(Right 1)
53 | | | | mayRaise=[ExceptionFailure]
54 | | | | pushValue ('b')
55 | | | | minReads=(Right 1)
56 | | | | mayRaise=[ExceptionFailure]
57 | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
58 | | | | minReads=(Right 1)
59 | | | | mayRaise=[ExceptionFailure]
60 | | | | read ((GHC.Classes.==) 'b')
61 | | | | minReads=(Right 1)
62 | | | | mayRaise=[ExceptionFailure]
63 | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
64 | | | | minReads=(Right 0)
65 | | | | mayRaise=[]
66 | | | | refJoin <hidden>
67 | | | | minReads=(Right 0)
68 | | | | mayRaise=[]
69 | | | <default>
70 | | | | fail []
71 | | | | minReads=(Left ExceptionFailure)
72 | | | | mayRaise=[ExceptionFailure]