test/Golden/Machine/G3.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 'a'
  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.==) 'a')
  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 call <hidden>
  74   minReads=(Right 0)
  75   mayRaise=[ExceptionFailure]
  76 pushValue GHC.Types.[]
  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=[]