summaryrefslogtreecommitdiff
path: root/testsuite/tests/deSugar/should_run/dsrun016.hs
blob: 38747a46e3e62b8cd1190709a6136eafbf83432a (plain)
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 ]