September 2017
Beginner to intermediate
396 pages
9h 46m
English
data Option = Option { boolOption :: Bool, selections :: [String] } deriving Show
instance Monoid Option where mempty = Option False [] (Option b1 s1) `mappend` (Option b2 s2) = Option (b1 || b2) (s1 ++ s2)
main :: IO () main = do putStrLn "Define default options" let defaultOptions = mempty :: Option putStrLn (show defaultOptions) ...
Read now
Unlock full access