testsuite/tests/ghc-regress/deSugar/should_run/mc04.hs


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

-- Tests grouping WITH a using clause but WITHOUT a by clause

{-# OPTIONS_GHC -XTransformListComp #-}

module Main where

import Data.List(inits)

main = putStrLn (show output)
  where
    output = [ x
             | y <- [1..3]
             , x <- "hello"
             , then group using inits ]