From feb3468ffe615f3cd63c0623c93ee4a03cca07ed Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Wed, 27 Oct 2010 19:38:59 +0000 Subject: [PATCH] Add an INLINE pragme for fmapDefault --- Data/Traversable.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Data/Traversable.hs b/Data/Traversable.hs index 28fa761..3d3ae70 100644 --- a/Data/Traversable.hs +++ b/Data/Traversable.hs @@ -172,6 +172,7 @@ mapAccumR f s t = runStateR (traverse (StateR . flip f) t) s -- | This function may be used as a value for `fmap` in a `Functor` instance. fmapDefault :: Traversable t => (a -> b) -> t a -> t b +{-# INLINE fmapDefault #-} fmapDefault f = getId . traverse (Id . f) -- | This function may be used as a value for `Data.Foldable.foldMap` -- 1.7.10.4