ghc/compiler/tests/deSugar/ds032.stderr

   1 ds032.hs:12:
   2     Warning: Possibly incomplete patterns
   3         in the definition of function `flatten'
   4
   5
   6 ================================================================================
   7 Desugared:
   8 Rec {
   9 d.Fractional_a11b  ::
  10     {PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,p-}}
  11 {-# L #-}
  12 d.Fractional_a11b =
  13     PrelNum.$d23{-rGg,p-}
  14 fromRational_a17D  ::
  15     PrelNum.Rational{-3r,p-} -> PrelBase.Float{-3c,p-}
  16 {-# L #-}
  17 fromRational_a17D =
  18     PrelNum.fromRational{-8T,p-}
  19         _@_ PrelBase.Float{-3c,p-} d.Fractional_a11b
  20 lit_a17V  ::
  21     PrelBase.Float{-3c,p-}
  22 {-# L #-}
  23 lit_a17V =
  24     fromRational_a17D
  25         _rational_  0 1
  26 d.Eq_a11e  ::
  27     {PrelBase.Eq{-23,p-} PrelBase.Float{-3c,p-}}
  28 {-# L #-}
  29 d.Eq_a11e =
  30     PrelNum.$d27{-rGk,p-}
  31 ==_a17U  ::
  32     PrelBase.Float{-3c,p-}
  33     -> PrelBase.Float{-3c,p-}
  34     -> PrelBase.Bool{-34,p-}
  35 {-# L #-}
  36 ==_a17U =
  37     PrelBase.=={-8Y,p-}
  38         _@_ PrelBase.Float{-3c,p-} d.Eq_a11e
  39 fromRational_a17T  ::
  40     PrelNum.Rational{-3r,p-} -> PrelBase.Float{-3c,p-}
  41 {-# L #-}
  42 fromRational_a17T =
  43     fromRational_a17D
  44 lit_a17S  ::
  45     PrelBase.Float{-3c,p-}
  46 {-# L #-}
  47 lit_a17S =
  48     fromRational_a17T
  49         _rational_  1 1
  50 fromRational_a17R  ::
  51     PrelNum.Rational{-3r,p-} -> PrelBase.Float{-3c,p-}
  52 {-# L #-}
  53 fromRational_a17R =
  54     fromRational_a17D
  55 lit_a17Q  ::
  56     PrelBase.Float{-3c,p-}
  57 {-# L #-}
  58 lit_a17Q =
  59     fromRational_a17R
  60         _rational_  11 10
  61 fromRational_a17P  ::
  62     PrelNum.Rational{-3r,p-} -> PrelBase.Float{-3c,p-}
  63 {-# L #-}
  64 fromRational_a17P =
  65     fromRational_a17D
  66 lit_a17K  ::
  67     PrelBase.Float{-3c,p-}
  68 {-# L #-}
  69 lit_a17K =
  70     fromRational_a17P
  71         _rational_  6 5
  72 ==_a18C  ::
  73     PrelBase.Float{-3c,p-}
  74     -> PrelBase.Float{-3c,p-}
  75     -> PrelBase.Bool{-34,p-}
  76 {-# L #-}
  77 ==_a18C =
  78     ==_a17U
  79 flatten_a10r  ::
  80     PrelBase.Int{-3g,p-}
  81     -> PrelBase.Bool{-34,p-}
  82     -> PrelBase.Float{-3c,p-}
  83     -> [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
  84     -> PrelBase.String{-rzM,p-}
  85 {-# L #-}
  86 flatten_a10r =
  87     \ n_r3i  ::
  88           PrelBase.Int{-3g,p-}
  89       {-# L #-}
  90       n_r3i nlp_r3k  ::
  91                 PrelBase.Bool{-34,p-}
  92             {-# L #-}
  93             nlp_r3k ds_d19G  ::
  94                         PrelBase.Float{-3c,p-}
  95                     {-# L #-}
  96                     ds_d19G seqs_r3n  ::
  97                                 [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
  98                             {-# L #-}
  99                             seqs_r3n ->
 100         let {
 101           fail_d19H  ::
 102               PrelBase.String{-rzM,p-}
 103           {-# L #-}
 104           fail_d19H =
 105               GHCerr.patError{-8r,p-}
 106                   _@_ PrelBase.String{-rzM,p-}
 107                   _string_ "ds032.hs:12|function `flatten'"
 108         } in
 109           case ds_d19G of { PrelBase.F#{-59,p-}{i} ds_d19Q  ->
 110           case# ds_d19Q of {
 111             _float_ 0.0000000000000000 ->
 112                 flattenS{-r3,x-}
 113                     nlp_r3k seqs_r3n;
 114             _float_ 1.0000000000000000 ->
 115                 let {
 116                   seqs_r3u  ::
 117                       [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
 118                   {-# L #-}
 119                   seqs_r3u =
 120                       seqs_r3n } in
 121                 let {
 122                   nlp_r3r  ::
 123                       PrelBase.Bool{-34,p-}
 124                   {-# L #-}
 125                   nlp_r3r =
 126                       nlp_r3k } in
 127                 let {
 128                   n_r3p  ::
 129                       PrelBase.Int{-3g,p-}
 130                   {-# L #-}
 131                   n_r3p =
 132                       n_r3i } in
 133                 let { ds_d1at  ::
 134                           [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
 135                       {-# L #-}
 136                       ds_d1at =
 137                   let {
 138                     ds_d1aG  ::
 139                         (PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})
 140                     {-# L #-}
 141                     ds_d1aG =
 142                         PrelTup.(,){-62,p-}{i}
 143                             {_@_ PrelBase.Int{-3g,p-}
 144                              _@_ PrelBase.Float{-3c,p-}
 145                              n_r3p
 146                              lit_a17K}
 147                   } in
 148                     PrelBase.:{-55,p-}{i}
 149                         _@_ (PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-}) ds_d1aG seqs_r3u
 150                 } in
 151                 flatten{-r1,x-}
 152                     n_r3p nlp_r3r lit_a17Q ds_d1at;
 153             ds_d1b0 ->
 154                 fail_d19H;
 155           };}
 156 flattenS_a10s  ::
 157     PrelBase.Bool{-34,p-}
 158     -> [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
 159     -> PrelBase.String{-rzM,p-}
 160 {-# L #-}
 161 flattenS_a10s =
 162     \ nlp_r3w  ::
 163           PrelBase.Bool{-34,p-}
 164       {-# L #-}
 165       nlp_r3w ds_d1b6  ::
 166                   [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
 167               {-# L #-}
 168               ds_d1b6 ->
 169         case ds_d1b6 of {
 170           PrelBase.[]{-5i,p-}{i} ->
 171               PrelBase.[]{-5i,p-}{i}
 172                   {_@_ PrelBase.Char{-38,p-}};
 173           PrelBase.:{-55,p-}{i} ds_d1bl seqs_r3D ->
 174               case ds_d1bl of { PrelTup.(,){-62,p-}{i} col_r3B seq_r3C  ->
 175               let {
 176                 nlp_r3z  ::
 177                     PrelBase.Bool{-34,p-}
 178                 {-# L #-}
 179                 nlp_r3z =
 180                     nlp_r3w
 181               } in
 182                 flatten{-r1,x-}
 183                     col_r3B nlp_r3z seq_r3C seqs_r3D;};
 184         }
 185 flatten{-r1,x-}  ::
 186     PrelBase.Int{-3g,p-}
 187     -> PrelBase.Bool{-34,p-}
 188     -> PrelBase.Float{-3c,p-}
 189     -> [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
 190     -> PrelBase.String{-rzM,p-}
 191 {-# L #-}
 192 flatten{-r1,x-} =
 193     flatten_a10r
 194 flattenS{-r3,x-}  ::
 195     PrelBase.Bool{-34,p-}
 196     -> [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
 197     -> PrelBase.String{-rzM,p-}
 198 {-# L #-}
 199 flattenS{-r3,x-} =
 200     flattenS_a10s
 201 end Rec }