test/Golden/Machine/G8.expected.txt

   1 let <hidden>
   2   minReads=(Right 0)
   3   mayRaise=[ExceptionFailure]
   4 | catch ExceptionFailure
   5 |   minReads=(Right 0)
   6 |   mayRaise=[ExceptionFailure]
   7 | | <ok>
   8 | | | pushValue (\x_0 -> \x_1 -> \x_2 -> x_0 (x_1 x_2))
   9 | | |   minReads=(Right 1)
  10 | | |   mayRaise=[ExceptionFailure]
  11 | | | pushValue ((GHC.Types.:))
  12 | | |   minReads=(Right 1)
  13 | | |   mayRaise=[ExceptionFailure]
  14 | | | pushValue (\x_0 -> \x_1 -> x_0)
  15 | | |   minReads=(Right 1)
  16 | | |   mayRaise=[ExceptionFailure]
  17 | | | pushValue ('r')
  18 | | |   minReads=(Right 1)
  19 | | |   mayRaise=[ExceptionFailure]
  20 | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  21 | | |   minReads=(Right 1)
  22 | | |   mayRaise=[ExceptionFailure]
  23 | | | read ((GHC.Classes.==) 'r')
  24 | | |   minReads=(Right 1)
  25 | | |   mayRaise=[ExceptionFailure]
  26 | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  27 | | |   minReads=(Right 0)
  28 | | |   mayRaise=[ExceptionFailure]
  29 | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  30 | | |   minReads=(Right 0)
  31 | | |   mayRaise=[ExceptionFailure]
  32 | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  33 | | |   minReads=(Right 0)
  34 | | |   mayRaise=[ExceptionFailure]
  35 | | | call <hidden>
  36 | | |   minReads=(Right 0)
  37 | | |   mayRaise=[ExceptionFailure]
  38 | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  39 | | |   minReads=(Right 0)
  40 | | |   mayRaise=[]
  41 | | | commit ExceptionFailure
  42 | | |   minReads=(Right 0)
  43 | | |   mayRaise=[]
  44 | | | ret
  45 | | |   minReads=(Right 0)
  46 | | |   mayRaise=[]
  47 | | <ko>
  48 | | | pushInput
  49 | | |   minReads=(Right 0)
  50 | | |   mayRaise=[ExceptionFailure]
  51 | | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
  52 | | |                                                               j_1
  53 | | |                                                               _) -> i_0 GHC.Classes.== j_1)
  54 | | |   minReads=(Right 0)
  55 | | |   mayRaise=[ExceptionFailure]
  56 | | | choicesBranch [(\x_0 -> x_0)]
  57 | | |   minReads=(Right 0)
  58 | | |   mayRaise=[ExceptionFailure]
  59 | | | | <branch>
  60 | | | | | pushValue (\x_0 -> x_0)
  61 | | | | |   minReads=(Right 0)
  62 | | | | |   mayRaise=[]
  63 | | | | | ret
  64 | | | | |   minReads=(Right 0)
  65 | | | | |   mayRaise=[]
  66 | | | | <default>
  67 | | | | | fail []
  68 | | | | |   minReads=(Left ExceptionFailure)
  69 | | | | |   mayRaise=[ExceptionFailure]
  70 pushValue (GHC.Show.show)
  71   minReads=(Right 0)
  72   mayRaise=[ExceptionFailure]
  73 pushValue (\x_0 -> \x_1 -> x_0)
  74   minReads=(Right 0)
  75   mayRaise=[ExceptionFailure]
  76 call <hidden>
  77   minReads=(Right 0)
  78   mayRaise=[ExceptionFailure]
  79 pushValue (GHC.Types.[])
  80   minReads=(Right 0)
  81   mayRaise=[ExceptionFailure]
  82 lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  83   minReads=(Right 0)
  84   mayRaise=[ExceptionFailure]
  85 lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  86   minReads=(Right 0)
  87   mayRaise=[ExceptionFailure]
  88 join <hidden>
  89   minReads=(Right 0)
  90   mayRaise=[]
  91 | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  92 |   minReads=(Right 0)
  93 |   mayRaise=[]
  94 | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  95 |   minReads=(Right 0)
  96 |   mayRaise=[]
  97 | ret
  98 |   minReads=(Right 0)
  99 |   mayRaise=[]
 100 catch ExceptionFailure
 101   minReads=(Right 0)
 102   mayRaise=[ExceptionFailure]
 103 | <ok>
 104 | | catch ExceptionFailure
 105 | |   minReads=(Right 0)
 106 | |   mayRaise=[]
 107 | | | <ok>
 108 | | | | pushInput
 109 | | | |   minReads=(Left ExceptionFailure)
 110 | | | |   mayRaise=[ExceptionFailure]
 111 | | | | read (\x_0 -> GHC.Types.True)
 112 | | | |   minReads=(Left ExceptionFailure)
 113 | | | |   mayRaise=[ExceptionFailure]
 114 | | | | popValue
 115 | | | |   minReads=(Left ExceptionFailure)
 116 | | | |   mayRaise=[ExceptionFailure]
 117 | | | | commit ExceptionFailure
 118 | | | |   minReads=(Left ExceptionFailure)
 119 | | | |   mayRaise=[ExceptionFailure]
 120 | | | | loadInput
 121 | | | |   minReads=(Left ExceptionFailure)
 122 | | | |   mayRaise=[ExceptionFailure]
 123 | | | | fail []
 124 | | | |   minReads=(Left ExceptionFailure)
 125 | | | |   mayRaise=[ExceptionFailure]
 126 | | | <ko>
 127 | | | | loadInput
 128 | | | |   minReads=(Right 0)
 129 | | | |   mayRaise=[]
 130 | | | | pushValue (GHC.Tuple.())
 131 | | | |   minReads=(Right 0)
 132 | | | |   mayRaise=[]
 133 | | | | commit ExceptionFailure
 134 | | | |   minReads=(Right 0)
 135 | | | |   mayRaise=[]
 136 | | | | refJoin <hidden>
 137 | | | |   minReads=(Right 0)
 138 | | | |   mayRaise=[]
 139 | <ko>
 140 | | pushInput
 141 | |   minReads=(Left ExceptionFailure)
 142 | |   mayRaise=[ExceptionFailure]
 143 | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
 144 | |                                                               j_1
 145 | |                                                               _) -> i_0 GHC.Classes.== j_1)
 146 | |   minReads=(Left ExceptionFailure)
 147 | |   mayRaise=[ExceptionFailure]
 148 | | choicesBranch [(\x_0 -> x_0)]
 149 | |   minReads=(Left ExceptionFailure)
 150 | |   mayRaise=[ExceptionFailure]
 151 | | | <branch>
 152 | | | | fail [FailureEnd]
 153 | | | |   minReads=(Left ExceptionFailure)
 154 | | | |   mayRaise=[ExceptionFailure]
 155 | | | <default>
 156 | | | | fail []
 157 | | | |   minReads=(Left ExceptionFailure)
 158 | | | |   mayRaise=[ExceptionFailure]