-- 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]