testsuite/tests/parser/should_fail/readFail043.hs


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

-- Check error message for groups if we don't have the right extension turned on

module Foo where

import Data.List
import GHC.Exts

foo = [ ()
      | x <- [1..10]
      , then group by x using groupWith
      , then group by x using groupWith
      , then group using inits
      ]