readable ← liftIO $ fileAccess path True False False
unless readable
- $ abort Forbidden [] Nothing
+ $ abort
+ $ mkAbortion Forbidden [] Nothing
stat ← liftIO $ getFileStatus path
when (isDirectory stat)
- $ abort Forbidden [] Nothing
+ $ abort
+ $ mkAbortion Forbidden [] Nothing
tag ← liftIO $ generateETagFromFile path
let lastMod = posixSecondsToUTCTime