path: root/testsuite/tests/codeGen/should_compile/3579.hs

module Bug where

compose :: [a -> a] -> a -> a
compose =  foldr (.) id

class Compose a where
    compose1 :: a -> a -> a