beecd0ff22bcd1e933c3f59679483eb312701274
[ghc-hetmet.git] / ghc / compiler / tests / deSugar / ds030.stderr
1
2
3 ================================================================================
4 Desugared:
5 Rec {
6 {-# L #-}
7 d.Num_aHE =
8     PrelBase.$d3
9 {-# L #-}
10 fromInt_aKm =
11     PrelBase.fromInt
12         _@_ PrelBase.Int d.Num_aHE
13 {-# L #-}
14 lit_aKx =
15     let {
16       {-# L #-}
17       ds_dKW =
18           PrelBase.I#
19               3
20     } in 
21       fromInt_aKm
22           ds_dKW
23 {-# L #-}
24 fromInt_aKw =
25     fromInt_aKm
26 {-# L #-}
27 lit_aKt =
28     let {
29       {-# L #-}
30       ds_dLb =
31           PrelBase.I#
32               4
33     } in 
34       fromInt_aKw
35           ds_dLb
36 {-# L #-}
37 f = _/\_ t{-aHm-} -> \ {-# L #-}
38                        x_r3d ->
39         let {
40           {-# L #-}
41           ds_dLw =
42               x_r3d } in
43         let {
44           {-# L #-}
45           fail_dLy =
46               lit_aKt
47         } in 
48           case ds_dLw of {
49             PrelBase.: ds_dLG ds_dLF ->
50                 fail_dLy;
51             PrelBase.[] ->
52                 lit_aKx;
53           }
54 end Rec }