blob: 0c3b262a0f2b19c7de4a90398f39f441749009de (
plain)
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 -XRank2Types -XTransformListComp #-}
module RnFail048 where
functions :: [forall a. [a] -> [a]]
functions = [take 4, take 5]
output = [() | f <- functions, then f]
|
