Add fmapM_maybe :: Monad m => (a -> m b) -> Maybe a -> m (Maybe b)