2 files changed, 8 insertions, 0 deletions

diff --git a/FunctorToMaybe.hs b/FunctorToMaybe.hs
index 0fd6b7f..a718010 100644
--- a/FunctorToMaybe.hs
+++ b/FunctorToMaybe.hs
@@ -18,8 +18,13 @@
 -- implemented the 'FunctorToMaybe' type class, then 'functorToEither' could be used to
 -- seperate the noise from the work-product.
 --
+{-# LANGUAGE CPP #-}
 module FunctorToMaybe where
 
+#if MIN_VERSION_base(4,6,0)
+#else
+import Control.Monad.Instances
+#endif
 
 -- | The 'FunctorToMaybe' class genaralizes 'Maybe' in that the
 -- there may be multiple null elements. 
diff --git a/KeyRing.hs b/KeyRing.hs
index 265b7fa..66771f6 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -54,6 +54,9 @@ import Data.Binary ( encode )
 import Data.IORef
 import System.Posix.IO (fdToHandle,fdRead)
 import qualified Data.Traversable as Traversable (mapM,forM,sequence)
+#if ! MIN_VERSION_base(4,6,0)
+import GHC.Exts ( Down(..) )
+#endif