diff options
| -rw-r--r-- | compiler/utils/Maybes.lhs | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/compiler/utils/Maybes.lhs b/compiler/utils/Maybes.lhs index e6fab9be26..210a7b9f02 100644 --- a/compiler/utils/Maybes.lhs +++ b/compiler/utils/Maybes.lhs @@ -17,7 +17,6 @@ module Maybes ( MaybeErr(..), -- Instance of Monad failME, isSuccess, - fmapM_maybe, orElse, mapCatMaybes, allMaybes, @@ -85,14 +84,6 @@ orElse :: Maybe a -> a -> a Nothing `orElse` y = y \end{code} -\begin{code} -fmapM_maybe :: Monad m => (a -> m b) -> Maybe a -> m (Maybe b) -fmapM_maybe _ Nothing = return Nothing -fmapM_maybe f (Just x) = do - x' <- f x - return $ Just x' -\end{code} - %************************************************************************ %* * \subsection[MaybeT type]{The @MaybeT@ monad transformer} |