@@ -77,7 +77,6 @@ import Data.FileEmbed (embedFile)
7777
7878import qualified Data.Text as T
7979import qualified Data.Text.Encoding as TE
80−import qualified Data.Text.Encoding.Error as TEE
8180
8281import Control.Arrow ((&&&), second)
8382import Data.List (groupBy, sortBy, find)
@@ -369,7 +368,7 @@ data File = File
369368
370369parseModifiedDate :: ByteString -> Maybe EpochTime
371370parseModifiedDate =
372− fmap (fromIntegral . fromEnum . utcTimeToPOSIXSeconds) . parseTime defaultTimeLocale format . S8.unpack
371+ fmap (fromInteger . round . utcTimeToPOSIXSeconds) . parseTime defaultTimeLocale format . S8.unpack
373372 where
374373 format = "%a, %d %b %Y %X %Z"
375374