testsuite/tests/parser/should_compile/mc16.hs


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

{-# OPTIONS_GHC -XMonadComprehensions -XTransformListComp #-}

module Foo where

import Data.List
import GHC.Exts

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