$ abort Forbidden [] Nothing
-- 讀める
tag <- liftIO $ generateETagFromFile path
- lastMod <- return $ posixSecondsToUTCTime $ fromRational $ toRational $ modificationTime stat
+ let lastMod = posixSecondsToUTCTime $ fromRational $ toRational $ modificationTime stat
foundEntity tag lastMod
-- MIME Type を推定
Just mime -> setContentType mime
-- 實際にファイルを讀んで送る
- (liftIO $ B.readFile path) >>= outputLBS
+ liftIO (B.readFile path) >>= outputLBS
else
abort Forbidden [] Nothing
else