X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FFunctor.hs;h=e5b8166319508e86569ad739a9f79901c69841ba;hb=267f4516994e20eec23203214079102edc3a3262;hp=c3e36fddf9db076265e9e14b8b98c40b9377f421;hpb=ccf049137fe5848ce934315e4de18cecf75b08e3;p=ghc-base.git

diff --git a/Data/Functor.hs b/Data/Functor.hs
index c3e36fd..e5b8166 100644
--- a/Data/Functor.hs
+++ b/Data/Functor.hs
@@ -13,12 +13,16 @@
 
 module Data.Functor
     (
-      Functor(fmap, (<$)),
+      Functor(fmap),
+      (<$),
       (<$>),
     ) where
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base (Functor(..))
+#else
+(<$) :: Functor f => a -> f b -> f a
+(<$) =  fmap . const
 #endif
 
 infixl 4 <$>