blob: 8c13a66300a8f2cfd06872c6dc86252cc288499d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-- Checks that the correct type is used checking the using clause of the group
{-# OPTIONS_GHC -XMonadComprehensions -XTransformListComp #-}
module ShouldFail where
import GHC.Exts( the )
import GHC.List
data Unorderable = Gnorf | Pinky | Brain
foo = [ GHC.List.length x
| x <- [Gnorf, Brain]
, then group using take 5
]
|
