hpasteit 0.3.1 → 0.3.2
raw patch · 2 files changed
+9/−3 lines, 2 files
Files
- HPasteIt.hs +2/−2
- hpasteit.cabal +7/−1
HPasteIt.hs view
@@ -89,7 +89,7 @@ -- hpaste.org redirects us to the URL of the paste if pasting succeeds. -- In order to grab the URL we explicitly don't follow redirects.- httpLbs (rq' { redirectCount = 0, responseTimeout = Just 60 }) man+ httpLbs (rq' { redirectCount = 0, responseTimeout = Just 60000000 }) man case res of -- An exception is thrown if the server issues a redirect.@@ -117,7 +117,7 @@ res <- withManager $ \man -> try $ do rq <- parseUrl ("http://hpaste.org/raw/" ++ show opt_paste_id) - httpLbs (rq { redirectCount = 0, responseTimeout = Just 60 }) man+ httpLbs (rq { redirectCount = 0, responseTimeout = Just 60000000 }) man case res of Left (StatusCodeException (Status 302 _) hdrs)
hpasteit.cabal view
@@ -1,5 +1,5 @@ name: hpasteit-version: 0.3.1+version: 0.3.2 synopsis: A command-line client for hpaste.org license: BSD3 license-file: LICENSE@@ -18,6 +18,12 @@ . Run @hpasteit --help@ for usage information and @hpasteit COMMAND --help@ for detailed usage information about a particular command.++ .++ Changes in 0.3.2+ .+ * HTTP connections now actually time out after 60 seconds .