testsuite/tests/ghc-regress/typecheck/should_fail/tcfail191.hs


1
2
3
4
5
6
7
8
9
10
11
12

-- Checks that the correct type is used checking the using clause of the group

{-# OPTIONS_GHC -XTransformListComp #-}

module ShouldFail where

data Unorderable = Gnorf | Pinky | Brain

foo = [ ()
      | x <- [Gnorf, Brain]
      , then group using take 5
      ]