giphy-api 0.5.1.0 → 0.5.2.0

raw patch · 3 files changed

+14/−9 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• changelog.md +4/−0
• giphy-api.cabal +2/−2
• src/Web/Giphy.hs +8/−7

@@ -1,5 +1,9 @@ # Changelog +## v0.5.2.0++- Fix #12: Compilation error with base 4.7+ ## v0.5.0.0  - Upgrade to Servant 0.9. User-facing API should remain unchanged.

@@ -1,9 +1,9 @@--- This file has been generated from package.yaml by hpack version 0.14.0.+-- This file has been generated from package.yaml by hpack version 0.15.0. -- -- see: https://github.com/sol/hpack  name:           giphy-api-version:        0.5.1.0+version:        0.5.2.0 synopsis:       Giphy HTTP API wrapper and CLI search tool. description:    Please see README.md category:       Web

@@ -88,20 +88,21 @@   ) where  import           Control.Monad             (MonadPlus (), forM, join, mzero)-import qualified Control.Monad.Reader      as Reader import           Control.Monad.Trans       (MonadIO (), lift, liftIO) import           Data.Aeson                ((.:), (.:?))+import           Data.Functor              ((<$>))+import           Data.Monoid               ((<>))+import           GHC.Generics              (Generic ())+import           Network.HTTP.Client.TLS   (tlsManagerSettings)+import           Servant.API               ((:<|>) (..), (:>))+import qualified Control.Monad.Reader      as Reader import qualified Data.Aeson.Types          as Aeson import qualified Data.Map.Strict           as Map-import           Data.Monoid               ((<>)) import qualified Data.Proxy                as Proxy import qualified Data.Text                 as T-import           GHC.Generics              (Generic ()) import qualified Lens.Micro.TH             as Lens import qualified Network.HTTP.Client       as HTTP-import           Network.HTTP.Client.TLS   (tlsManagerSettings) import qualified Network.URI               as URI-import           Servant.API               ((:<|>) (..), (:>)) import qualified Servant.API               as Servant import qualified Servant.Client            as Servant import qualified Text.Read                 as Read@@ -398,11 +399,11 @@ --  -- | Contains the key to access the API.-data GiphyConfig = GiphyConfig { configApiKey :: Key }+newtype GiphyConfig = GiphyConfig { configApiKey :: Key }   deriving (Show, Eq)  -- | Internal data structure holding the config.-data GiphyContext = GiphyContext { ctxConfig  :: GiphyConfig }+newtype GiphyContext = GiphyContext { ctxConfig  :: GiphyConfig }  -- | The Giphy monad contains the execution context. type Giphy = Reader.ReaderT GiphyContext Servant.ClientM