From 8756b6507b7c799f1a4c7ca3d0e637a6ef7c1990 Mon Sep 17 00:00:00 2001 From: Stephen Diehl Date: Mon, 18 Apr 2016 11:17:02 -0400 Subject: [PATCH] unbreak functor/monad issue in old ghc vers --- src/Monad.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Monad.hs b/src/Monad.hs index 370e641ba..a29c7f7b6 100644 --- a/src/Monad.hs +++ b/src/Monad.hs @@ -49,7 +49,7 @@ import Control.Monad #endif concatMapM :: Monad m => (a -> m [b]) -> [a] -> m [b] -concatMapM f xs = fmap concat (mapM f xs) +concatMapM f xs = liftM concat (mapM f xs) liftM' :: Monad m => (a -> b) -> m a -> m b liftM' = (<$!>)