mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build with old ghc that used old-time type

Browse source
This commit is contained in:
Joey Hess 2014-01-28 17:14:43 -04:00
parent 97a849092c
commit f0dfac4d96
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Logs/Unused.hs
View file

@ -15,6 +15,8 @@
- Licensed under the GNU GPL version 3 or higher. - Licensed under the GNU GPL version 3 or higher.
-} -}
{-# LANGUAGE CPP #-}
module Logs.Unused ( module Logs.Unused (
UnusedMap, UnusedMap,
updateUnusedLog, updateUnusedLog,
@ -90,9 +92,15 @@ readUnusedMap :: FilePath -> Annex UnusedMap
readUnusedMap = log2map <$$> readUnusedLog readUnusedMap = log2map <$$> readUnusedLog
dateUnusedLog :: FilePath -> Annex (Maybe UTCTime) dateUnusedLog :: FilePath -> Annex (Maybe UTCTime)
#if MIN_VERSION_directory(1,2,0)
dateUnusedLog prefix = do dateUnusedLog prefix = do
f <- fromRepo $ gitAnnexUnusedLog prefix f <- fromRepo $ gitAnnexUnusedLog prefix
liftIO $ catchMaybeIO $ getModificationTime f 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. -} {- Set of unused keys. This is cached for speed. -}
unusedKeys :: Annex (S.Set Key) unusedKeys :: Annex (S.Set Key)