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"