Drop support for building with old versions of directory, feed, and http-types.

This commit is contained in:
Joey Hess 2017-03-10 15:57:41 -04:00
parent 9ef7207d5a
commit 1c4e5f65fc
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
5 changed files with 6 additions and 28 deletions

View file

@ -15,8 +15,6 @@
- Licensed under the GNU GPL version 3 or higher.
-}
{-# LANGUAGE CPP #-}
module Logs.Unused (
UnusedMap,
updateUnusedLog,
@ -93,14 +91,9 @@ 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
-- old ghc's getModificationTime returned a ClockTime
dateUnusedLog _prefix = return Nothing
#endif
{- Set of unused keys. This is cached for speed. -}
unusedKeys :: Annex (S.Set Key)