diff --git a/Database/Keys/Handle.hs b/Database/Keys/Handle.hs
index 5a5912b0ba..8a3f2b4070 100644
--- a/Database/Keys/Handle.hs
+++ b/Database/Keys/Handle.hs
@@ -18,6 +18,8 @@ import Utility.Exception
 
 import Control.Concurrent
 import Control.Monad.IO.Class (liftIO, MonadIO)
+import Control.Applicative
+import Prelude
 
 -- The MVar is always left full except when actions are run
 -- that access the database.