sol/hpack
1
1
Fork 0
mirror of https://github.com/sol/hpack.git synced 2024-10-04 03:38:00 +03:00
Code Issues Projects Releases Wiki Activity

Create directory for defaults cache entry only on 200

Browse Source
This commit is contained in:
Simon Hengel 2017-12-27 13:13:54 +08:00
parent a1d9a5f102
commit a69ec1a135
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Hpack/Defaults.hs
View File

@ -41,7 +41,10 @@ get url file = do
request <- parseRequest url
response <- httpLbs request manager
case responseStatus response of
Status 200 _ -> LB.writeFile file (responseBody response) >> return Found
Status 200 _ -> do
createDirectoryIfMissing True (takeDirectory file)
LB.writeFile file (responseBody response)
return Found
Status 404 _ -> return NotFound
status -> return (Failed $ "Error while downloading " ++ url ++ " (" ++ formatStatus status ++ ")")
@ -61,7 +64,6 @@ ensure dir defaults =
ensureFile :: FilePath -> URL -> IO Result
ensureFile file url = do
createDirectoryIfMissing True (takeDirectory file)
doesFileExist file >>= \ case
True -> return Found
False -> get url file