Drop support for building with old versions of directory, feed, and http-types.
This commit is contained in:
parent
9ef7207d5a
commit
1c4e5f65fc
5 changed files with 6 additions and 28 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue