+ , resGet = Just $ handleStaticFile path
+ , resHead = Nothing
+ , resPost = Nothing
+ , resPut = Nothing
+ , resDelete = Nothing
+ }
+
+
+handleStaticFile :: FilePath -> Resource ()
+handleStaticFile path
+ = do exist <- liftIO $ fileExist path
+ if exist then
+ -- 存在はした。讀めるかどうかは知らない。
+ do readable <- liftIO $ fileAccess path True False False
+ unless readable
+ -- 讀めない
+ $ abort Forbidden [] Nothing
+
+ -- 讀める
+ tag <- liftIO $ generateETagFromFile path
+ lastMod <- liftIO $ getModificationTime path
+ foundEntity tag lastMod
+
+ -- MIME Type を推定
+ conf <- getConfig
+ case guessTypeByFileName (cnfExtToMIMEType conf) path of
+ Nothing -> return ()
+ Just mime -> setContentType mime
+
+ -- 實際にファイルを讀んで送る
+ (liftIO $ B.readFile path) >>= outputBS
+ else
+ foundNoEntity Nothing
+
+
+-- inode-size-lastmod
+generateETagFromFile :: FilePath -> IO ETag
+generateETagFromFile path
+ = do stat <- getFileStatus path
+ let inode = fromEnum $ fileID stat
+ size = fromEnum $ fileSize stat
+ lastmod = fromEnum $ modificationTime stat
+ return $ strongETag $ printf "%x-%x-%x" inode size lastmod