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