diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -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.
diff --git a/giphy-api.cabal b/giphy-api.cabal
--- a/giphy-api.cabal
+++ b/giphy-api.cabal
@@ -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
diff --git a/src/Web/Giphy.hs b/src/Web/Giphy.hs
--- a/src/Web/Giphy.hs
+++ b/src/Web/Giphy.hs
@@ -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