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

fix some build warnings

Browse source
This commit is contained in:
Joey Hess 2020-05-04 12:44:26 -04:00
parent e116eb642a
commit 021ed4f1b9
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Utility/CoProcess.hs
View file

@ -9,7 +9,7 @@
{-# LANGUAGE CPP #-}
module Utility.CoProcess (
CoProcessHandle(..),
CoProcessHandle,
CoProcessState(..),
start,
stop,

6
Utility/Url.hs
View file

@ -244,12 +244,12 @@ getUrlInfo url uo = case parseURIRelaxed url of
<=< lookup hContentDisposition . responseHeaders
existsconduit r req =
let go = catchcrossprotoredir r (existsconduit' req uo)
in catchJust matchconnectionrestricted go retconnectionrestricted
let a = catchcrossprotoredir r (existsconduit' req uo)
in catchJust matchconnectionrestricted a retconnectionrestricted
matchconnectionrestricted he@(HttpExceptionRequest _ (InternalException ie)) =
case fromException ie of
Just (ConnectionRestricted why) -> Just he
Just (ConnectionRestricted _why) -> Just he
_ -> Nothing
matchconnectionrestricted _ = Nothing