diff -Nru haskell-fb-2.0.0/CHANGELOG.md haskell-fb-2.1.1/CHANGELOG.md --- haskell-fb-2.0.0/CHANGELOG.md 2019-06-24 02:24:50.000000000 +0000 +++ haskell-fb-2.1.1/CHANGELOG.md 2020-03-14 10:01:32.000000000 +0000 @@ -1,3 +1,12 @@ +# Version 2.1.0 + +* Same release as 2.0.1 bound follows PVP properly + +# Version 2.0.1 + +* Fix MonadUnliftIO instance for FacebookT +* Have upper bound on unliftio and related packages + # Version 2.0.0 * Remove following dependency: diff -Nru haskell-fb-2.0.0/debian/changelog haskell-fb-2.1.1/debian/changelog --- haskell-fb-2.0.0/debian/changelog 2020-08-15 07:42:57.000000000 +0000 +++ haskell-fb-2.1.1/debian/changelog 2020-08-21 05:09:49.000000000 +0000 @@ -1,32 +1,8 @@ -haskell-fb (2.0.0-1build5) groovy; urgency=medium +haskell-fb (2.1.1-1) unstable; urgency=medium - * Rebuild against new GHC ABI. + * New upstream release - -- Gianfranco Costamagna Sat, 15 Aug 2020 09:42:57 +0200 - -haskell-fb (2.0.0-1build4) groovy; urgency=medium - - * Rebuild against new GHC abi. - - -- Gianfranco Costamagna Sat, 25 Jul 2020 07:39:16 +0200 - -haskell-fb (2.0.0-1build3) groovy; urgency=medium - - * No-change rebuild for new GHC ABIs - - -- Steve Langasek Tue, 14 Jul 2020 06:11:41 +0000 - -haskell-fb (2.0.0-1build2) groovy; urgency=medium - - * Rebuild against new GHC ABI. - - -- Gianfranco Costamagna Mon, 29 Jun 2020 15:43:10 +0200 - -haskell-fb (2.0.0-1build1) groovy; urgency=medium - - * Rebuild against new GHC ABI. - - -- Gianfranco Costamagna Mon, 29 Jun 2020 15:25:48 +0200 + -- Ilias Tsitsimpis Fri, 21 Aug 2020 08:09:49 +0300 haskell-fb (2.0.0-1) unstable; urgency=medium diff -Nru haskell-fb-2.0.0/debian/control haskell-fb-2.1.1/debian/control --- haskell-fb-2.0.0/debian/control 2020-07-14 06:11:41.000000000 +0000 +++ haskell-fb-2.1.1/debian/control 2020-08-21 05:09:49.000000000 +0000 @@ -1,6 +1,5 @@ Source: haskell-fb -Maintainer: Ubuntu Developers -XSBC-Original-Maintainer: Debian Haskell Group +Maintainer: Debian Haskell Group Uploaders: Clint Adams , Priority: optional @@ -18,7 +17,7 @@ libghc-attoparsec-prof, libghc-conduit-dev (>= 1.3.0), libghc-conduit-prof, - libghc-conduit-extra-dev (>= 1.3.0), + libghc-conduit-extra-dev, libghc-conduit-extra-prof, libghc-cryptonite-dev, libghc-cryptonite-prof, @@ -32,9 +31,9 @@ libghc-http-types-prof, libghc-memory-dev, libghc-memory-prof, - libghc-monad-logger-dev (>= 0.3.28), + libghc-monad-logger-dev, libghc-monad-logger-prof, - libghc-resourcet-dev (>= 1.2.0), + libghc-resourcet-dev, libghc-resourcet-prof, libghc-transformers-base-dev, libghc-transformers-base-prof, diff -Nru haskell-fb-2.0.0/fb.cabal haskell-fb-2.1.1/fb.cabal --- haskell-fb-2.0.0/fb.cabal 2019-06-24 02:24:50.000000000 +0000 +++ haskell-fb-2.1.1/fb.cabal 2020-03-14 14:18:56.000000000 +0000 @@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack -- --- hash: 1165a61ce7ffe062813385420ff4c80c2e0089e64221cfd0d045a3cf1654b8a8 +-- hash: fbc728728a747ce7668aa69d724cc5c3bba4c229c78cace64848a9542775f837 name: fb -version: 2.0.0 +version: 2.1.1 synopsis: Bindings to Facebook's API. description: This package exports bindings to Facebook's APIs (see ). Does not have any external @@ -76,15 +76,15 @@ , base >=4 && <5 , bytestring >=0.9 , conduit >=1.3.0 - , conduit-extra >=1.3.0 + , conduit-extra , cryptonite , data-default , http-client >=0.4.30 , http-conduit >=2.3.0 , http-types , memory - , monad-logger >=0.3.28 - , resourcet >=1.2.0 + , monad-logger + , resourcet , text >=0.11 , time >=1.4 , transformers >=0.2 diff -Nru haskell-fb-2.0.0/README.md haskell-fb-2.1.1/README.md --- haskell-fb-2.0.0/README.md 2019-06-24 02:24:50.000000000 +0000 +++ haskell-fb-2.1.1/README.md 2020-03-14 14:18:56.000000000 +0000 @@ -1,11 +1,10 @@ fb -- -[![Build Status](https://travis-ci.org/psibi/fb.svg?branch=master)](https://travis-ci.org/psibi/fb) +[![Build Status](https://dev.azure.com/psibi2000/Haskell%20Projects/_apis/build/status/psibi.fb?branchName=master)](https://dev.azure.com/psibi2000/Haskell%20Projects/_build/latest?definitionId=16&branchName=master) Haskell bindings to Facebook's API - ## Example code to get User Access token ```haskell diff -Nru haskell-fb-2.0.0/src/Facebook/Monad.hs haskell-fb-2.1.1/src/Facebook/Monad.hs --- haskell-fb-2.0.0/src/Facebook/Monad.hs 2019-06-24 02:24:50.000000000 +0000 +++ haskell-fb-2.1.1/src/Facebook/Monad.hs 2020-03-14 14:18:56.000000000 +0000 @@ -1,5 +1,6 @@ {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE RankNTypes #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE MultiParamTypeClasses #-} @@ -60,21 +61,25 @@ -- Facebook. The phantom type @auth@ may be either 'Auth' (you -- have supplied your 'Credentials') or 'NoAuth' (you have not -- supplied any 'Credentials'). -newtype FacebookT auth m a = - F - { unF :: ReaderT FbData m a -- FbData -> m a - } - deriving ( Functor - , Applicative - , Alternative - , Monad - , MonadFix - , MonadPlus - , MonadIO - , MonadTrans - , R.MonadThrow - , MonadFail - ) +newtype FacebookT auth m a = F + { unF :: ReaderT FbData m a -- FbData -> m a + } deriving ( Functor + , Applicative + , Alternative + , Monad + , MonadFix + , MonadPlus + , MonadIO + , MonadTrans + , R.MonadThrow + , MonadFail + ) + +instance (MonadUnliftIO m) => MonadUnliftIO (FacebookT auth m) where + withRunInIO inner = + F $ + ReaderT $ \r -> + withRunInIO $ \run -> inner (\fbT -> run $ (flip runReaderT) r (unF fbT)) deriving instance (R.MonadResource m, MonadBase IO m) => @@ -83,20 +88,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 monadLoggerLog loc src lvl msg = lift (monadLoggerLog loc src lvl msg) @@ -113,14 +104,12 @@ deriving (Typeable) -- | Internal data kept inside 'FacebookT'. -data FbData = - FbData - { fbdCreds :: Maybe Credentials - , fbdManager :: !H.Manager - , fbdTier :: !FbTier - , fbdApiVersion :: IORef ApiVersion - } - deriving (Typeable) +data FbData = FbData + { fbdCreds :: Maybe Credentials + , fbdManager :: !H.Manager + , fbdTier :: !FbTier + , fbdApiVersion :: IORef ApiVersion + } deriving (Typeable) -- | Which Facebook tier should be used (see -- ).