-- 3. In case you want to provide a fallback value. 

-- fromMaybe 0 Nothing
-- 0

-- fromMaybe 0 (Just 1)
-- 1

fromMaybe :: a -> Maybe a -> a
fromMaybe seed Nothing = seed
fromMaybe :: a -> Maybe a -> a
fromMaybe seed Nothing = seed
fromMaybe seed Nothing = seed