Add an INLINE pragme for fmapDefault
authorsimonpj@microsoft.com <unknown>
Wed, 27 Oct 2010 19:38:59 +0000 (19:38 +0000)
committersimonpj@microsoft.com <unknown>
Wed, 27 Oct 2010 19:38:59 +0000 (19:38 +0000)
libraries/base/Data/Traversable.hs

index 28fa761..3d3ae70 100644 (file)
@@ -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`