fb 2.0.0 → 2.0.1

raw patch · 3 files changed

+11/−19 lines, 3 filesdep ~monad-loggerdep ~resourcetdep ~unliftio-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: monad-logger, resourcet, unliftio-core

API changes (from Hackage documentation)

Files

CHANGELOG.md +5/−0
fb.cabal +5/−5
src/Facebook/Monad.hs +1/−14

CHANGELOG.md view

@@ -1,3 +1,8 @@+# Version 2.0.1++* Fix MonadUnliftIO instance for FacebookT+* Have upper bound on unliftio and related packages+ # Version 2.0.0  * Remove following dependency:

fb.cabal view

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 1165a61ce7ffe062813385420ff4c80c2e0089e64221cfd0d045a3cf1654b8a8+-- hash: f698ca30c7f08b732695d16796a83805031f7c6656a996d179507f92d1ad54e1  name:           fb-version:        2.0.0+version:        2.0.1 synopsis:       Bindings to Facebook's API. description:    This package exports bindings to Facebook's APIs (see                 <http://developers.facebook.com/>).  Does not have any external@@ -83,14 +83,14 @@     , http-conduit >=2.3.0     , http-types     , memory-    , monad-logger >=0.3.28-    , resourcet >=1.2.0+    , monad-logger >=0.3.32+    , resourcet >=1.2.3     , text >=0.11     , time >=1.4     , transformers >=0.2     , transformers-base     , unliftio-    , unliftio-core+    , unliftio-core >=0.2.0     , unordered-containers   if flag(debug)     cpp-options: -DDEBUG

src/Facebook/Monad.hs view

@@ -74,6 +74,7 @@            , MonadTrans            , R.MonadThrow            , MonadFail+           , MonadUnliftIO            )  deriving instance@@ -82,20 +83,6 @@  instance MonadBase b m => MonadBase b (FacebookT auth m) where   liftBase = lift . liftBase---- askUnliftIO = ReaderT $ \r ->---                 withUnliftIO $ \u ->--- return (UnliftIO (unliftIO u . flip runReaderT r))-instance (MonadIO m, MonadUnliftIO m) => MonadUnliftIO (FacebookT auth m) where-  askUnliftIO :: FacebookT auth m (UnliftIO (FacebookT auth m))-  askUnliftIO =-    F-      (ReaderT $ \(r :: FbData) ->-         withUnliftIO $ \(u :: UnliftIO m) ->-           return-             (UnliftIO-                (\(x :: FacebookT auth m a) ->-                   (unliftIO u ((flip runReaderT r) (unF x))))))  -- | Since @fb-0.14.8@. instance MonadLogger m => MonadLogger (FacebookT auth m) where