mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix build with old http-client

Browse source
This commit is contained in:
Joey Hess 2018-05-10 00:22:23 -04:00
parent e8ffa8d54b
commit 86958fda5d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Utility/Url.hs
View file

@ -322,7 +322,8 @@ download meterupdate url file uo =
_ -> show he _ -> show he
#else #else
let msg = case he of let msg = case he of
StatusCodeException status _ _ -> statusMessage status StatusCodeException status _ _ ->
B8.toString (statusMessage status)
_ -> show he _ -> show he
#endif #endif
hPutStrLn stderr $ "download failed: " ++ msg hPutStrLn stderr $ "download failed: " ++ msg