summaryrefslogtreecommitdiff
path: root/testsuite/tests/rename/should_fail/mc14.hs
blob: e2cf74cbf5968c21bddf76ddcefe9aea63886946 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
-- Test for transform list comp which should work for monad comp aswell:
--
-- Test trying to use a function bound in the list comprehension as the group function

{-# OPTIONS_GHC -XRank2Types -XMonadComprehensions -XTransformListComp #-}

module RnFail049 where

import Data.List(inits, tails)

functions :: [forall a. [a] -> [[a]]]
functions = [inits, tails]

output = [() | f <- functions, then group using f]