pushValue (\x_0 -> \x_1 -> GHC.Show.show x_0) minReads=2 mayRaise=[ExceptionFailure] alwaysRaise=[] freeRegs=[] join join minReads=1 mayRaise=[ExceptionFailure] alwaysRaise=[] freeRegs=[] | lift2Value (\x_0 -> \x_1 -> x_0 x_1) | minReads=1 | mayRaise=[ExceptionFailure] | alwaysRaise=[] | freeRegs=[] | comment "satisfy ((GHC.Classes.==) 'c')" | minReads=1 | mayRaise=[ExceptionFailure] | alwaysRaise=[] | freeRegs=[] | read ((GHC.Classes.==) 'c') | minReads=1 | mayRaise=[ExceptionFailure] | alwaysRaise=[] | freeRegs=[] | lift2Value (\x_0 -> \x_1 -> x_0 x_1) | minReads=0 | mayRaise=[] | alwaysRaise=[] | freeRegs=[] | ret | minReads=0 | mayRaise=[] | alwaysRaise=[] | freeRegs=[] catch ExceptionFailure minReads=2 mayRaise=[ExceptionFailure] alwaysRaise=[] freeRegs=[] | | | pushValue (\x_0 -> 'a') | | minReads=2 | | mayRaise=[ExceptionFailure] | | alwaysRaise=[] | | freeRegs=[] | | comment "satisfy ((GHC.Classes.==) 'a')" | | minReads=2 | | mayRaise=[ExceptionFailure] | | alwaysRaise=[] | | freeRegs=[] | | read ((GHC.Classes.==) 'a') | | minReads=2 | | mayRaise=[ExceptionFailure] | | alwaysRaise=[] | | freeRegs=[] | | lift2Value (\x_0 -> \x_1 -> x_0 x_1) | | minReads=1 | | mayRaise=[ExceptionFailure] | | alwaysRaise=[] | | freeRegs=[] | | commit ExceptionFailure | | minReads=1 | | mayRaise=[ExceptionFailure] | | alwaysRaise=[] | | freeRegs=[] | | refJoin join | | minReads=1 | | mayRaise=[ExceptionFailure] | | alwaysRaise=[] | | freeRegs=[] | | | comment "raiseAgainIfConsumed" | | minReads=2 | | mayRaise=[ExceptionFailure] | | alwaysRaise=[] | | freeRegs=[] | | saveInput | | minReads=2 | | mayRaise=[ExceptionFailure] | | alwaysRaise=[] | | freeRegs=[] | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _ | | j_1 | | _) -> i_0 GHC.Classes.== j_1) | | minReads=2 | | mayRaise=[ExceptionFailure] | | alwaysRaise=[] | | freeRegs=[] | | choicesBranch | | minReads=2 | | mayRaise=[ExceptionFailure] | | alwaysRaise=[] | | freeRegs=[] | | | x_0)> | | | | pushValue (\x_0 -> 'b') | | | | minReads=2 | | | | mayRaise=[ExceptionFailure] | | | | alwaysRaise=[] | | | | freeRegs=[] | | | | comment "satisfy ((GHC.Classes.==) 'b')" | | | | minReads=2 | | | | mayRaise=[ExceptionFailure] | | | | alwaysRaise=[] | | | | freeRegs=[] | | | | read ((GHC.Classes.==) 'b') | | | | minReads=2 | | | | mayRaise=[ExceptionFailure] | | | | alwaysRaise=[] | | | | freeRegs=[] | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1) | | | | minReads=1 | | | | mayRaise=[ExceptionFailure] | | | | alwaysRaise=[] | | | | freeRegs=[] | | | | refJoin join | | | | minReads=1 | | | | mayRaise=[ExceptionFailure] | | | | alwaysRaise=[] | | | | freeRegs=[] | | | | | | | fail [] | | | | minReads=0 | | | | mayRaise=[ExceptionFailure] | | | | alwaysRaise=[ExceptionFailure] | | | | freeRegs=[]