From f0dfac4d969ab013a076e9f1cceca7c2fcea4e93 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 28 Jan 2014 17:14:43 -0400
Subject: [PATCH] fix build with old ghc that used old-time type

---
 Logs/Unused.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/Logs/Unused.hs b/Logs/Unused.hs
index 0af319f045..c13054f3ca 100644
--- a/Logs/Unused.hs
+++ b/Logs/Unused.hs
@@ -15,6 +15,8 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
+{-# LANGUAGE CPP #-}
+
 module Logs.Unused (
 	UnusedMap,
 	updateUnusedLog,
@@ -90,9 +92,15 @@ readUnusedMap :: FilePath -> Annex UnusedMap
 readUnusedMap = log2map <$$> readUnusedLog
 
 dateUnusedLog :: FilePath -> Annex (Maybe UTCTime)
+#if MIN_VERSION_directory(1,2,0)
 dateUnusedLog prefix = do
 	f <- fromRepo $ gitAnnexUnusedLog prefix
 	liftIO $ catchMaybeIO $ getModificationTime f
+#else
+#warning foo
+-- old ghc's getModificationTime returned a ClockTime
+dateUnusedLog _prefix = Nothing
+#endif
 
 {- Set of unused keys. This is cached for speed. -}
 unusedKeys :: Annex (S.Set Key)