Minor haddock fixes (#418)

kowainik · Aug 4, 2022 · 0d86086 · 0d86086
1 parent 284ed14
commit 0d86086
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Relude/Monad/Maybe.hs b/src/Relude/Monad/Maybe.hs
@@ -98,7 +98,7 @@ whenNothing_ Nothing m = m
 whenNothing_ _       _ = pass
 {-# INLINE whenNothing_ #-}
 
-{- | Monadic version of 'whenNothingM'.
+{- | Monadic version of 'whenNothing'.
 
 >>> whenNothingM (pure $ Just True) $ True <$ putTextLn "Is Just!"
 True
@@ -110,7 +110,7 @@ whenNothingM :: Monad m => m (Maybe a) -> m a -> m a
 whenNothingM mm action = mm >>= \m -> whenNothing m action
 {-# INLINE whenNothingM #-}
 
-{- | Monadic version of 'whenNothingM_'.
+{- | Monadic version of 'whenNothing_'.
 
 >>> whenNothingM_ (pure $ Just True) $ putTextLn "Is Just!"
 >>> whenNothingM_ (pure Nothing) $ putTextLn "Is Nothing!"