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