From b55c32d4c6cb63ffd6d9ce49eee8be95628c9746 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 10 Mar 2017 15:57:41 -0400 Subject: Drop support for building with old versions of directory, feed, and http-types. --- Logs/Unused.hs | 7 ------- 1 file changed, 7 deletions(-) (limited to 'Logs') diff --git a/Logs/Unused.hs b/Logs/Unused.hs index 2361fedbc..a2f40410b 100644 --- a/Logs/Unused.hs +++ b/Logs/Unused.hs @@ -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) -- cgit v1.2.3