}
octetStream ∷ MIMEType
-octetStream = mkMIMEType "application" "octet-stream"
+{-# NOINLINE octetStream #-}
+octetStream = parseMIMEType "application/octet-stream"
handleStaticFile ∷ Bool → FilePath → Resource ()
handleStaticFile sendContent path
= do exists ← liftIO $ fileExist path
unless exists
- $ foundNoEntity Nothing
+ foundNoEntity'
readable ← liftIO $ fileAccess path True False False
unless readable