Skip to content
Snippets Groups Projects

Sel thunk?

  • Clone with SSH
  • Clone with HTTPS
  • Embed
  • Share
    The snippet can be accessed without any authentication.
    Authored by Rodrigo Mesquita
    Edited
    file.patch 2.38 KiB
     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
    +      }
    +      }
    +      }
    0% Loading or .
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment