fix some build warnings
This commit is contained in:
parent
e116eb642a
commit
021ed4f1b9
2 changed files with 4 additions and 4 deletions
|
@ -9,7 +9,7 @@
|
||||||
{-# LANGUAGE CPP #-}
|
{-# LANGUAGE CPP #-}
|
||||||
|
|
||||||
module Utility.CoProcess (
|
module Utility.CoProcess (
|
||||||
CoProcessHandle(..),
|
CoProcessHandle,
|
||||||
CoProcessState(..),
|
CoProcessState(..),
|
||||||
start,
|
start,
|
||||||
stop,
|
stop,
|
||||||
|
|
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue