From 8f007074fdcd5fe586ef8effa9c621882dd8bcf9 Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Wed, 8 Jan 2020 15:42:30 +0100
Subject: [PATCH] =?UTF-8?q?Avoid=20using=20a=20=C2=ABMost=20people=20won't?=
 =?UTF-8?q?=20need=20this=C2=BB=20module=20and=20use=20an=20intermediate?=
 =?UTF-8?q?=20value=20that=20is=20not=20meant=20to=20represent=20a=20durat?=
 =?UTF-8?q?ion?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/Article.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/Article.hs b/src/Article.hs
index 2e2c441..dce6a3e 100644
--- a/src/Article.hs
+++ b/src/Article.hs
@@ -10,9 +10,11 @@ module Article (
 import Control.Applicative ((<|>))
 import Data.Map (Map)
 import qualified Data.Map as Map (fromList, alter)
-import Data.Time (defaultTimeLocale, getCurrentTimeZone, parseTimeM, timeZoneOffsetString)
-import Data.Time.Clock (UTCTime)
-import Data.Time.Clock.POSIX (POSIXTime, utcTimeToPOSIXSeconds)
+import Data.Time (
+      UTCTime, defaultTimeLocale, getCurrentTimeZone, parseTimeM
+    , timeZoneOffsetString
+  )
+import Data.Time.Clock.System (systemSeconds, utcToSystemTime)
 import System.Directory (getModificationTime)
 import System.FilePath (dropExtension, takeFileName)
 import Text.ParserCombinators.Parsec (
@@ -72,7 +74,7 @@ no :: String -> Parser String
 no = many1 . noneOf
 
 getTimestamp :: UTCTime -> String
-getTimestamp = show . (truncate :: POSIXTime -> Integer) . utcTimeToPOSIXSeconds
+getTimestamp = show . systemSeconds . utcToSystemTime
 
 setDate :: String -> String -> Metadata -> Metadata
 setDate tzOffset defaultDate = Map.alter timeStamp "date"