-
-tcfail069.hs:21: Couldn't match the type
- `PrelTup.(,) taCp' against `PrelBase.[]'
- Expected: `[taCt]'
- Inferred: `([PrelBase.Int], [PrelBase.Int])'
- In a "case" branch: `PrelBase.[]' -> `IOBase.error "foo"'
- In the case expression
- `case (list1, (list2)) of PrelBase.[] -> IOBase.error "foo"'
- In an equation for function `too_much':
- `too_much ds ((k, m) PrelBase.: q1) s0
- = case (list1, (list2)) of PrelBase.[] -> IOBase.error "foo"
- where
- list2 = ds
- list1 = ds'
-Compilation had errors
+tcfail069.hs:20:
+ Couldn't match `[t]' against `(t1, t2)'
+ Expected type: [t]
+ Inferred type: (t1, t2)
+ In the scrutinee of a case expression: (list1, list2)
+ In the case expression: case (list1, list2) of [] -> error "foo"