Update record

data Model = Model
    { name :: String
    , age :: Int
    } deriving (Show)


main =
    let
        model = Model "foo" 42
    in
        print $ model {age = 44}