@@ -1,78 +0,0 @@
1−diff -ru orig/fb.cabal new/fb.cabal
2−--- orig/fb.cabal 2013-12-04 08:11:01.690633132 +0200
3−+++ new/fb.cabal 2013-12-04 08:11:01.000000000 +0200
8−- , http-conduit == 1.9.*
9−+ , http-conduit >= 1.9 && < 2.1
10− , attoparsec == 0.10.*
11− , attoparsec-conduit == 1.0.*
12− , unordered-containers
13−diff -ru orig/src/Facebook/Base.hs new/src/Facebook/Base.hs
14−--- orig/src/Facebook/Base.hs 2013-12-04 08:11:01.690633132 +0200
15−+++ new/src/Facebook/Base.hs 2013-12-04 08:11:01.000000000 +0200
17− import Control.Monad (mzero)
18− import Control.Monad.IO.Class (MonadIO)
19− import Data.ByteString.Char8 (ByteString)
20−+import Data.Default (def)
21− import Data.Text (Text)
22− import Data.Typeable (Typeable)
26− -> Maybe (AccessToken anyKind) -- ^ Access token.
27− -> HT.SimpleQuery -- ^ Parameters.
28−+#if MIN_VERSION_http_conduit(2, 0, 0)
29−+ -> FacebookT anyAuth m H.Request
31− -> FacebookT anyAuth m (H.Request n)
33− fbreq path mtoken query =
35− let host = case tier of
36− Production -> "graph.facebook.com"
37− Beta -> "graph.beta.facebook.com"
38−- in H.def { H.secure = True
39−+ in def { H.secure = True
42− , H.path = TE.encodeUtf8 path
44− -- | Same as 'H.http', but tries to parse errors and throw
45− -- meaningful 'FacebookException'@s@.
46− fbhttp :: (MonadBaseControl IO m, C.MonadResource m) =>
47−+#if MIN_VERSION_http_conduit(2, 0, 0)
52− -> FacebookT anyAuth m (H.Response (C.ResumableSource m ByteString))
54− manager <- getManager
57− fbhttpHelper :: (MonadBaseControl IO m, C.MonadResource m) =>
59−+#if MIN_VERSION_http_conduit(2, 0, 0)
64− -> m (H.Response (C.ResumableSource m ByteString))
65− fbhttpHelper manager req = do
66− let req' = req { H.checkStatus = \_ _ _ -> Nothing }
68− -- | Send a @HEAD@ request just to see if the resposne status
69− -- code is 2XX (returns @True@) or not (returns @False@).
70− httpCheck :: (MonadBaseControl IO m, C.MonadResource m) =>
71−+#if MIN_VERSION_http_conduit(2, 0, 0)
74− H.Request (C.ResourceT m)
76− -> FacebookT anyAuth m Bool
78− httpCheck req = runResourceInFb $ do