diff --git a/log.cabal b/log.cabal
--- a/log.cabal
+++ b/log.cabal
@@ -1,5 +1,5 @@
 name:                log
-version:             0.7
+version:             0.8
 synopsis:            Structured logging solution with multiple backends
 
 description:         A library that provides a way to record structured
@@ -34,6 +34,8 @@
 library
   exposed-modules:     Log,
                        Log.Backend.ElasticSearch,
+                       Log.Backend.ElasticSearch.Internal,
+                       Log.Backend.ElasticSearch.Lens,
                        Log.Backend.PostgreSQL,
                        Log.Backend.StandardOutput,
                        Log.Backend.StandardOutput.Bulk,
@@ -46,7 +48,7 @@
 
   build-depends:       base <5,
                        log-base >= 0.7,
-                       log-elasticsearch >= 0.7,
+                       log-elasticsearch >= 0.8,
                        log-postgres >= 0.7
 
   hs-source-dirs:      src
diff --git a/src/Log/Backend/ElasticSearch/Internal.hs b/src/Log/Backend/ElasticSearch/Internal.hs
new file mode 100644
--- /dev/null
+++ b/src/Log/Backend/ElasticSearch/Internal.hs
@@ -0,0 +1,5 @@
+module Log.Backend.ElasticSearch.Internal (
+  module Log.Backend.ElasticSearch.Internal
+  ) where
+
+import "log-elasticsearch" Log.Backend.ElasticSearch.Internal
diff --git a/src/Log/Backend/ElasticSearch/Lens.hs b/src/Log/Backend/ElasticSearch/Lens.hs
new file mode 100644
--- /dev/null
+++ b/src/Log/Backend/ElasticSearch/Lens.hs
@@ -0,0 +1,5 @@
+module Log.Backend.ElasticSearch.Lens (
+  module Log.Backend.ElasticSearch.Lens
+  ) where
+
+import "log-elasticsearch" Log.Backend.ElasticSearch.Lens
diff --git a/test/Test/ElasticSearch.hs b/test/Test/ElasticSearch.hs
--- a/test/Test/ElasticSearch.hs
+++ b/test/Test/ElasticSearch.hs
@@ -25,11 +25,11 @@
 
 defaultElasticSearchTestConfig :: ElasticSearchConfig
                                -> IO ElasticSearchTestConfig
-defaultElasticSearchTestConfig ElasticSearchConfig{..} = do
+defaultElasticSearchTestConfig esc = do
   now <- getCurrentTime
-  let testServer = Server esServer
+  let testServer = Server (esServer esc)
       testIndex  = IndexName $ T.concat
-                   [ esIndex
+                   [ esIndex esc
                    , "-"
                    , T.pack $ formatTime defaultTimeLocale "%F" now
                    ]