Permalink
Browse files

INLINE fmap

  • Loading branch information...
1 parent a45563b commit d319de383480c6a81c72ff12690877f43957983f @JohnLato committed Mar 8, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 src/Data/Iteratee/Base.hs
@@ -147,6 +147,7 @@ ierrM :: Monad m => Iteratee s m a -> SomeException -> m (Iteratee s m a)
ierrM i e = return $ ierr i e
instance forall s m. (Functor m) => Functor (Iteratee s m) where
+ {-# INLINE fmap #-}
fmap f m = runIter m (idone . f) onCont onErr (onReq f)
where
onCont k = icont $ fmap (first (fmap f)) . k

0 comments on commit d319de3

Please sign in to comment.