cute data types

gistfile1.hs

data Car a b c = Car { company :: a
, model :: b
, year :: c
} deriving (Show)


tellCar :: Car -> String
tellCar (Car {company = c, model = m, year = y} = "This " ++ c ++ " " ++ m ++ " was made in "
)
++ show y
ghci> let stang = Car {company="Ford", model="Mustang", year=1967}
ghci> tellCar stang
"This Ford Mustang was made in 1967"