@@ -372,12 +372,6 @@ data File = File
372 , fileGetModified :: Maybe EpochTime
372 , fileGetModified :: Maybe EpochTime
375−parseModifiedDate :: ByteString -> Maybe EpochTime
377− fmap (fromInteger . round . utcTimeToPOSIXSeconds) . parseTime defaultTimeLocale format . S8.unpack
379− format = "%a, %d %b %Y %X %Z"
381data StaticSettings = StaticSettings
375data StaticSettings = StaticSettings
382 { ssFolder :: Pieces -> IO FileLookup
376 { ssFolder :: Pieces -> IO FileLookup
383 , ssMkRedirect :: Pieces -> ByteString -> ByteString
377 , ssMkRedirect :: Pieces -> ByteString -> ByteString