git.iko.soy/typeable/wai
on master help sign in
Fixed parseModifiedDate
30660a4Michael
Network/Wai/Application/Static.hs+1−2
compare with master
unifiedsplit
@@ -77,7 +77,6 @@ import Data.FileEmbed (embedFile)
77
77
78import qualified Data.Text as T
78import qualified Data.Text as T
79import qualified Data.Text.Encoding as TE
79import qualified Data.Text.Encoding as TE
80−import qualified Data.Text.Encoding.Error as TEE
81
80
82import Control.Arrow ((&&&), second)
81import Control.Arrow ((&&&), second)
83import Data.List (groupBy, sortBy, find)
82import Data.List (groupBy, sortBy, find)
@@ -369,7 +368,7 @@ data File = File
369
368
370parseModifiedDate :: ByteString -> Maybe EpochTime
369parseModifiedDate :: ByteString -> Maybe EpochTime
371parseModifiedDate =
370parseModifiedDate =
372− fmap (fromIntegral . fromEnum . utcTimeToPOSIXSeconds) . parseTime defaultTimeLocale format . S8.unpack
371+ fmap (fromInteger . round . utcTimeToPOSIXSeconds) . parseTime defaultTimeLocale format . S8.unpack
373 where
372 where
374 format = "%a, %d %b %Y %X %Z"
373 format = "%a, %d %b %Y %X %Z"
375
374