blob: 4dd0fe2fe5ba57de408a49e46e711808830e9924 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-- Checks that the ordering constraint on the implicit groupWith is respected
{-# OPTIONS_GHC -XMonadComprehensions -XTransformListComp #-}
module ShouldFail where
data Unorderable = Gnorf | Pinky | Brain
foo = [ ()
| x <- [Gnorf, Brain]
, then group by x
]
|