Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
data Product = Book [Char] [Char] | Video [Char] | CD [Char] [Char] [Int] deriving (Show, Eq) --getTitle (Book "Evgeny Onegin" "Aleksandr Pushkin") getTitle :: Product->[Char] getTitle (Book x _) = x getTitle (Video x) = x get