mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 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
Download patch file Download diff file Expand all files Collapse all files

2
Utility/CoProcess.hs
View file

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

6
Utility/Url.hs
View file

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