From bcdc6db2c32334527ec1907447b8cceebe09c267 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 28 Dec 2015 17:21:26 -0400
Subject: [PATCH] fix build with pre-AMP ghc

---
 Database/Keys/Handle.hs | 2 ++
 1 file changed, 2 insertions(+)

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.