blob: 9186721229a59964fd44a316dc7ef3fe3175524a (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
-- Checks that the correct type is used checking the using clause of
-- the group when a by clause is present
{-# OPTIONS_GHC -XMonadComprehensions -XTransformListComp #-}
module ShouldFail where
foo = [ length x
| x <- [1..10]
, then group by x using take 2
]
|