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