testsuite/tests/rename/should_fail/rnfail050.hs


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

-- Test trying to use a function bound in the list comprehension as the transform function

{-# OPTIONS_GHC -XRankNTypes -XTransformListComp #-}

module RnFail048 where

functions :: [[a] -> [a]]
functions = [take 4, take 5]

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