13 lines
628 B
Diff
13 lines
628 B
Diff
diff -ubr github-0.7.2-orig/Github/Private.hs github-0.7.2/Github/Private.hs
|
|
--- github-0.7.2-orig/Github/Private.hs 2013-12-15 19:45:00.611789227 +0100
|
|
+++ github-0.7.2/Github/Private.hs 2013-12-15 19:45:46.359954006 +0100
|
|
@@ -104,9 +104,6 @@
|
|
in Just (Data.List.takeWhile (/= '>') s')
|
|
else Nothing
|
|
|
|
-doHttps :: Method -> String -> Maybe GithubAuth
|
|
- -> Maybe (RequestBody (ResourceT IO))
|
|
- -> IO (Either E.SomeException (Response LBS.ByteString))
|
|
doHttps reqMethod url auth body = do
|
|
let reqBody = fromMaybe (RequestBodyBS $ BS.pack "") body
|
|
reqHeaders = maybe [] getOAuth auth
|