1 files changed, 3 insertions, 0 deletions

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