data Model = Model { name :: String , age :: Int } deriving (Show) main = let model = Model "foo" 42 in print $ model {age = 44}