PrepareRename.hs

module PrepareRename where

import qualified Foo as F

main :: IO Int
main = do
    x <- return $ foo 42
    return (foo x)
foo, bar :: Int -> Int
foo x = x + 1
bar = (+) 1 . F.foo . foo

baz :: a -> [a]
baz = (: [])