add GHC.HetMet.{hetmet_kappa,hetmet_kappa_app}

[ghc-base.git] / Data / Functor.hs

diff --git a/Data/Functor.hs b/Data/Functor.hs
index c3e36fd..84d0aa7 100644 (file)
--- a/Data/Functor.hs
+++ b/Data/Functor.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE CPP #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Data.Functor
@@ -13,12 +15,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 <$>