Haskell non-OOP auto

-- Definice datového typu Auto
data Auto = Auto {
    znacka :: String,
    model :: String,
    rokVyroby :: Int
} deriving (Show)

-- Funkce pro zobrazení informací o autě
zobrazInfo :: Auto -> IO ()
zobrazInfo auto = do
    putStrLn $ "Znacka: " ++ znacka auto
    putStrLn $ "Model: " ++ model auto
    putStrLn $ "Rok vyroby: " ++ show (rokVyroby auto)

-- Vytvoření instance Auto a zobrazení informací
main :: IO ()
main = do
    let mojeAuto = Auto "Toyota" "Corolla" 2020
    zobrazInfo(mojeAuto)