data Data a = Data String
newtype NewData a = NewData String

matchData::Data a -> String
matchData (Data _) = "matchData"

matchNewData::NewData a -> String
matchNewData (NewData _) = "matchNewData"

main = do
print $ matchData (Data undefined)
print $ matchNewData (NewData undefined)