@@ -372,12 +372,6 @@ data File = File
372372 , fileGetModified :: Maybe EpochTime
373373 }
374374
375−parseModifiedDate :: ByteString -> Maybe EpochTime
376−parseModifiedDate =
377− fmap (fromInteger . round . utcTimeToPOSIXSeconds) . parseTime defaultTimeLocale format . S8.unpack
378− where
379− format = "%a, %d %b %Y %X %Z"
380−
381375data StaticSettings = StaticSettings
382376 { ssFolder :: Pieces -> IO FileLookup
383377 , ssMkRedirect :: Pieces -> ByteString -> ByteString