Sel thunk?
The snippet can be accessed without any authentication.
Authored by
Rodrigo Mesquita
Edited
Y.$wtest
- = \ (eta_s1tC [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld)
+ = \ (eta_s1tv [OS=OneShot] :: GHC.Prim.State# GHC.Prim.RealWorld)
_ [Occ=Dead] ->
+ case Y.$w$sbreak
+ (GHC.Enum.enumDeltaToInteger1
+ (GHC.Num.Integer.IS -1000000#) (GHC.Num.Integer.IS 1000000#))
+ of
+ { (# ww_s1tE, ww1_s1tF #) ->
+ case lastWithDefault @Integer (Y.last1 @Integer) ww_s1tE
+ of last_before_aMf
+ { __DEFAULT ->
+ case lastWithDefault @Integer (Y.last1 @Integer) ww1_s1tF
+ of last_after_aMg
+ { __DEFAULT ->
GHC.IO.Handle.Text.hPutStr2
GHC.IO.Handle.FD.stdout
- (case Y.$w$sbreak
- (GHC.Enum.enumDeltaToInteger1
- (GHC.Num.Integer.IS -1000000#) (GHC.Num.Integer.IS 1000000#))
- of
- { (# ww_s1tL, ww1_s1tM #) ->
- case GHC.Num.Integer.integerEq
- (lastWithDefault @Integer (Y.last1 @Integer) ww_s1tL)
- (lastWithDefault @Integer (Y.last1 @Integer) ww1_s1tM)
- of {
- False -> GHC.Show.$fShowBool5;
- True -> GHC.Show.$fShowBool4
- }
+ (case last_before_aMf of {
+ GHC.Num.Integer.IS x1_a1o8 ->
+ case last_after_aMg of {
+ __DEFAULT -> GHC.Show.$fShowBool5;
+ GHC.Num.Integer.IS y1_a1ob ->
+ case GHC.Prim.==# x1_a1o8 y1_a1ob of {
+ __DEFAULT -> GHC.Show.$fShowBool5;
+ 1# -> GHC.Show.$fShowBool4
+ }
+ };
+ GHC.Num.Integer.IP x1_a1od ->
+ case last_after_aMg of {
+ __DEFAULT -> GHC.Show.$fShowBool5;
+ GHC.Num.Integer.IP y1_a1rP ->
+ case GHC.Num.BigNat.bigNatEq# x1_a1od y1_a1rP of {
+ __DEFAULT -> GHC.Show.$fShowBool5;
+ 1# -> GHC.Show.$fShowBool4
+ }
+ };
+ GHC.Num.Integer.IN x1_a1rS ->
+ case last_after_aMg of {
+ __DEFAULT -> GHC.Show.$fShowBool5;
+ GHC.Num.Integer.IN y1_a1rV ->
+ case GHC.Num.BigNat.bigNatEq# x1_a1rS y1_a1rV of {
+ __DEFAULT -> GHC.Show.$fShowBool5;
+ 1# -> GHC.Show.$fShowBool4
+ }
+ }
})
GHC.Types.True
- eta_s1tC
+ eta_s1tv
+ }
+ }
+ }
Please register or sign in to comment