Commit f89f6628 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Whitespace.

parent 551fb7b9
-----------------------------------------------------------------------------
-- | Separate module for HTTP actions, using a proxy server if one exists
-- | Separate module for HTTP actions, using a proxy server if one exists
-----------------------------------------------------------------------------
module Distribution.Client.HttpUtils (
DownloadResult(..),
......@@ -48,7 +48,7 @@ trim :: String -> String
trim = f . f
where f = reverse . dropWhile isSpace
-- |Get the local proxy settings
-- |Get the local proxy settings
--TODO: print info message when we're using a proxy based on verbosity
proxy :: Verbosity -> IO Proxy
proxy _verbosity = do
......@@ -116,7 +116,7 @@ downloadURI verbosity uri path = do
(3,0,4) -> Right rsp
(a,b,c) -> Left err
where
err = ErrorMisc $ "Unsucessful HTTP code: "
err = ErrorMisc $ "Unsucessful HTTP code: "
++ concatMap show [a,b,c]
-- Only write the etag if we get a 200 response code.
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment