diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,4 +1,8 @@
 1.0.1
 =====
+* Fix GHC 8.2.1 and Stackage LTS-9 build.
+
+1.0.1
+=====
 
 * Support `linkEvent` in `SavedEvent`.
diff --git a/eventsource-geteventstore-store.cabal b/eventsource-geteventstore-store.cabal
--- a/eventsource-geteventstore-store.cabal
+++ b/eventsource-geteventstore-store.cabal
@@ -1,9 +1,9 @@
--- This file has been generated from package.yaml by hpack version 0.15.0.
+-- This file has been generated from package.yaml by hpack version 0.17.1.
 --
 -- see: https://github.com/sol/hpack
 
 name:           eventsource-geteventstore-store
-version:        1.0.1
+version:        1.0.2
 synopsis:       GetEventStore store implementation.
 description:    GetEventStore store implementation.
 category:       Eventsourcing
@@ -35,7 +35,7 @@
   build-depends:
       base >=4.9 && <5
     , protolude >=0.1.10 && <0.2
-    , eventstore ==0.14.*
+    , eventstore >=0.14 && <0.16
     , eventsource-api >= 1.1
     , aeson
     , mtl
diff --git a/library/EventSource/Store/GetEventStore.hs b/library/EventSource/Store/GetEventStore.hs
--- a/library/EventSource/Store/GetEventStore.hs
+++ b/library/EventSource/Store/GetEventStore.hs
@@ -123,19 +123,23 @@
 defaultBatchSize = 500
 
 --------------------------------------------------------------------------------
+toGESStreamName :: StreamName -> GES.StreamName
+toGESStreamName (StreamName name) = GES.StreamName name
+
+--------------------------------------------------------------------------------
 instance Store GetEventStore where
-  appendEvents (GetEventStore conn) (StreamName name) ver xs = liftIO $ do
+  appendEvents (GetEventStore conn) name ver xs = liftIO $ do
     events <- traverse makeEvent xs
-    w <- GES.sendEvents conn name (toGesExpVer ver) events
+    w <- GES.sendEvents conn (toGESStreamName name) (toGesExpVer ver) events
     return $ fmap (EventNumber . GES.writeNextExpectedVersion) w
 
-  readBatch (GetEventStore conn) (StreamName name) b = liftIO $ do
+  readBatch (GetEventStore conn) name b = liftIO $ do
     let EventNumber n = batchFrom b
-    w <- GES.readStreamEventsForward conn name n (batchSize b) True
+    w <- GES.readStreamEventsForward conn (toGESStreamName name) n (batchSize b) True
     return $ fmap (fmap fromGesSlice . fromGesReadResult) w
 
-  subscribe (GetEventStore conn) (StreamName name) = liftIO $ do
-    sub <- GES.subscribe conn name True
+  subscribe (GetEventStore conn) name = liftIO $ do
+    sub <- GES.subscribe conn (toGESStreamName name) True
     sid <- freshSubscriptionId
 
     return $ Subscription sid $ liftIO $
diff --git a/package.yaml b/package.yaml
--- a/package.yaml
+++ b/package.yaml
@@ -17,7 +17,7 @@
   dependencies:
   - base >=4.9 && <5
   - protolude >=0.1.10 && <0.2
-  - eventstore ==0.14.*
+  - eventstore >=0.14 && <0.16
   - eventsource-api >= 1.1
   - aeson
   - mtl
@@ -45,4 +45,4 @@
     - -with-rtsopts=-N
     main: Main.hs
     source-dirs: test-suite
-version: '1.0.1'
+version: '1.0.2'
diff --git a/stack.yaml b/stack.yaml
--- a/stack.yaml
+++ b/stack.yaml
@@ -15,7 +15,7 @@
 # resolver:
 #  name: custom-snapshot
 #  location: "./custom-snapshot.yaml"
-resolver: lts-7.14
+resolver: lts-9.0
 
 # User packages to be built.
 # Various formats can be used as shown in the example below.
@@ -37,6 +37,8 @@
 # will not be run. This is useful for tweaking upstream packages.
 packages:
 - '.'
+- '../api'
+
 # Dependency packages to be pulled from upstream that are not in the resolver
 # (e.g., acme-missiles-0.3)
 extra-deps: []