ExportedTypeClient.hs

import Renaming.ExportedType

-- renaming must distinguish between type name and constructor name
foo :: MyType -> Bool
foo (MyType 0) = True
foo (MyType _) = False

main = putStrLn "hello"