2 Warning: Possibly incomplete patterns
3 in the definition of function `flatten'
6 ================================================================================
10 {PrelNum.Fractional{-26,p-} PrelBase.Float{-3c,p-}}
15 PrelNum.Rational{-3r,p-} -> PrelBase.Float{-3c,p-}
18 PrelNum.fromRational{-8T,p-}
19 _@_ PrelBase.Float{-3c,p-} d.Fractional_a11b
21 PrelBase.Float{-3c,p-}
27 {PrelBase.Eq{-23,p-} PrelBase.Float{-3c,p-}}
32 PrelBase.Float{-3c,p-}
33 -> PrelBase.Float{-3c,p-}
34 -> PrelBase.Bool{-34,p-}
38 _@_ PrelBase.Float{-3c,p-} d.Eq_a11e
40 PrelNum.Rational{-3r,p-} -> PrelBase.Float{-3c,p-}
45 PrelBase.Float{-3c,p-}
51 PrelNum.Rational{-3r,p-} -> PrelBase.Float{-3c,p-}
56 PrelBase.Float{-3c,p-}
62 PrelNum.Rational{-3r,p-} -> PrelBase.Float{-3c,p-}
67 PrelBase.Float{-3c,p-}
73 PrelBase.Float{-3c,p-}
74 -> PrelBase.Float{-3c,p-}
75 -> PrelBase.Bool{-34,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-}
94 PrelBase.Float{-3c,p-}
97 [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
102 PrelBase.String{-rzM,p-}
105 GHCerr.patError{-8r,p-}
106 _@_ PrelBase.String{-rzM,p-}
107 _string_ "ds032.hs:12|function `flatten'"
109 case ds_d19G of { PrelBase.F#{-59,p-}{i} ds_d19Q ->
111 _float_ 0.0000000000000000 ->
114 _float_ 1.0000000000000000 ->
117 [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
123 PrelBase.Bool{-34,p-}
134 [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
139 (PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})
142 PrelTup.(,){-62,p-}{i}
143 {_@_ PrelBase.Int{-3g,p-}
144 _@_ PrelBase.Float{-3c,p-}
148 PrelBase.:{-55,p-}{i}
149 _@_ (PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-}) ds_d1aG seqs_r3u
152 n_r3p nlp_r3r lit_a17Q ds_d1at;
157 PrelBase.Bool{-34,p-}
158 -> [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
159 -> PrelBase.String{-rzM,p-}
163 PrelBase.Bool{-34,p-}
166 [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
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 ->
177 PrelBase.Bool{-34,p-}
183 col_r3B nlp_r3z seq_r3C seqs_r3D;};
187 -> PrelBase.Bool{-34,p-}
188 -> PrelBase.Float{-3c,p-}
189 -> [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
190 -> PrelBase.String{-rzM,p-}
195 PrelBase.Bool{-34,p-}
196 -> [(PrelBase.Int{-3g,p-}, PrelBase.Float{-3c,p-})]
197 -> PrelBase.String{-rzM,p-}