diff options
| -rw-r--r-- | Logs/Unused.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Logs/Unused.hs b/Logs/Unused.hs index 0af319f04..c13054f3c 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) |