Add fb patch

patching/patches/fb-0.14.11.patch

@@ -0,0 +1,78 @@
+diff -ru orig/fb.cabal new/fb.cabal
+--- orig/fb.cabal	2013-12-04 08:11:01.690633132 +0200
++++ new/fb.cabal	2013-12-04 08:11:01.000000000 +0200
+@@ -73,7 +73,7 @@
+     , conduit              == 1.0.*
+     , data-default
+     , http-types
+-    , http-conduit         == 1.9.*
++    , http-conduit         >= 1.9     && < 2.1
+     , attoparsec           == 0.10.*
+     , attoparsec-conduit   == 1.0.*
+     , unordered-containers
+diff -ru orig/src/Facebook/Base.hs new/src/Facebook/Base.hs
+--- orig/src/Facebook/Base.hs	2013-12-04 08:11:01.690633132 +0200
++++ new/src/Facebook/Base.hs	2013-12-04 08:11:01.000000000 +0200
+@@ -15,6 +15,7 @@
+ import Control.Monad (mzero)
+ import Control.Monad.IO.Class (MonadIO)
+ import Data.ByteString.Char8 (ByteString)
++import Data.Default (def)
+ import Data.Text (Text)
+ import Data.Typeable (Typeable)
+ 
+@@ -49,13 +50,17 @@
+          Text                        -- ^ Path.
+       -> Maybe (AccessToken anyKind) -- ^ Access token.
+       -> HT.SimpleQuery              -- ^ Parameters.
++#if MIN_VERSION_http_conduit(2, 0, 0)
++      -> FacebookT anyAuth m H.Request
++#else
+       -> FacebookT anyAuth m (H.Request n)
++#endif
+ fbreq path mtoken query =
+     withTier $ \tier ->
+       let host = case tier of
+                    Production -> "graph.facebook.com"
+                    Beta ->  "graph.beta.facebook.com"
+-      in H.def { H.secure        = True
++      in def   { H.secure        = True
+                , H.host          = host
+                , H.port          = 443
+                , H.path          = TE.encodeUtf8 path
+@@ -140,7 +145,11 @@
+ -- | Same as 'H.http', but tries to parse errors and throw
+ -- meaningful 'FacebookException'@s@.
+ fbhttp :: (MonadBaseControl IO m, C.MonadResource m) =>
++#if MIN_VERSION_http_conduit(2, 0, 0)
++          H.Request
++#else
+           H.Request m
++#endif
+        -> FacebookT anyAuth m (H.Response (C.ResumableSource m ByteString))
+ fbhttp req = do
+   manager <- getManager
+@@ -148,7 +157,11 @@
+ 
+ fbhttpHelper :: (MonadBaseControl IO m, C.MonadResource m) =>
+                 H.Manager
++#if MIN_VERSION_http_conduit(2, 0, 0)
++             -> H.Request
++#else
+              -> H.Request m
++#endif
+              -> m (H.Response (C.ResumableSource m ByteString))
+ fbhttpHelper manager req = do
+   let req' = req { H.checkStatus = \_ _ _ -> Nothing }
+@@ -192,7 +205,11 @@
+ -- | Send a @HEAD@ request just to see if the resposne status
+ -- code is 2XX (returns @True@) or not (returns @False@).
+ httpCheck :: (MonadBaseControl IO m, C.MonadResource m) =>
++#if MIN_VERSION_http_conduit(2, 0, 0)
++             H.Request
++#else
+              H.Request (C.ResourceT m)
++#endif
+           -> FacebookT anyAuth m Bool
+ 
+ httpCheck req = runResourceInFb $ do