+++ /dev/null
-
-
-================================================================================
-Desugared:
-Rec {
-{-# L #-}
-d.Num_aHE =
- PrelBase.$d3
-{-# L #-}
-fromInt_aKm =
- PrelBase.fromInt
- _@_ PrelBase.Int d.Num_aHE
-{-# L #-}
-lit_aKx =
- let {
- {-# L #-}
- ds_dKW =
- PrelBase.I#
- 3
- } in
- fromInt_aKm
- ds_dKW
-{-# L #-}
-fromInt_aKw =
- fromInt_aKm
-{-# L #-}
-lit_aKt =
- let {
- {-# L #-}
- ds_dLb =
- PrelBase.I#
- 4
- } in
- fromInt_aKw
- ds_dLb
-{-# L #-}
-f = _/\_ t{-aHm-} -> \ {-# L #-}
- x_r3d ->
- let {
- {-# L #-}
- ds_dLw =
- x_r3d } in
- let {
- {-# L #-}
- fail_dLy =
- lit_aKt
- } in
- case ds_dLw of {
- PrelBase.: ds_dLG ds_dLF ->
- fail_dLy;
- PrelBase.[] ->
- lit_aKx;
- }
-end Rec }