（その14）多重定義

blog014_001.hs

data Human = Human {h_name :: String}
data Neko = Neko {n_name :: String}

hello :: Human -> String
hello h = "hello, " ++ h_name h

{-
hello :: Neko -> String
hello n = "hello, " ++ n_name n
-}