From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 27 Dec 2023 19:33:46 +0000 (-0400)
Subject: fix build with old version of time package
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~29^2~80
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=4b52657b371b483d3555ea26a91eddeade49038d;p=git-annex.git

fix build with old version of time package

Can't truncate timestamp resolution with that version.
---

diff --git a/Utility/TimeStamp.hs b/Utility/TimeStamp.hs
index 878d6f7299..3cc4d8d245 100644
--- a/Utility/TimeStamp.hs
+++ b/Utility/TimeStamp.hs
@@ -5,6 +5,8 @@
  - License: BSD-2-clause
  -}
 
+{-# LANGUAGE CPP #-}
+
 module Utility.TimeStamp (
 	parserPOSIXTime,
 	parsePOSIXTime,
@@ -60,7 +62,11 @@ formatPOSIXTime fmt t = formatTime defaultTimeLocale fmt (posixSecondsToUTCTime
 
 {- Truncate the resolution to the specified number of decimal places. -}
 truncateResolution :: Int -> POSIXTime -> POSIXTime
+#if MIN_VERSION_time(1,9,1)
 truncateResolution n t = secondsToNominalDiffTime $
 	fromIntegral ((truncate (nominalDiffTimeToSeconds t * d)) :: Integer) / d
   where
 	d = 10 ^ n
+#else
+truncateResolution _ t = t
+#endif