2 tcfail069.hs:21: Couldn't match the type
3 `PrelBase.[]' against `PrelTup.(,) [PrelBase.Int]'
5 Inferred: `([PrelBase.Int], [PrelBase.Int])'
6 In a "case" branch: `PrelBase.[]' -> `IOBase.error "foo"'
8 `case (list1, (list2)) of PrelBase.[] -> IOBase.error "foo"'
9 In an equation for function `too_much':
10 `too_much ds ((k, m) PrelBase.: q1) s0
11 = case (list1, (list2)) of PrelBase.[] -> IOBase.error "foo"
17 Compilation had errors