diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,7 +1,3 @@
-# Change log
-
-store-specs uses [Semantic Versioning][].
-The change log is available through the [releases on GitHub][].
-
-[Semantic Versioning]: http://semver.org/spec/v2.0.0.html
-[releases on GitHub]: https://github.com/githubuser/store-specs/releases
+1.0.1
+=====
+    * Fix Stackage build.
diff --git a/eventsource-store-specs.cabal b/eventsource-store-specs.cabal
--- a/eventsource-store-specs.cabal
+++ b/eventsource-store-specs.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-store-specs
-version:        1.0.0
+version:        1.0.1
 synopsis:       Provides common test specification for Store implementation.
 description:    Provides common test specification for Store implementation.
 category:       Eventsourcing, Testing
@@ -34,7 +34,7 @@
   ghc-options: -Wall
   build-depends:
       base >=4.9 && <5
-    , protolude >= 0.1.10 && <0.2
+    , protolude >= 0.1.10 && <0.3
     , eventsource-api ==1.*
     , tasty
     , tasty-hspec
diff --git a/library/Test/EventSource/Store/Specification.hs b/library/Test/EventSource/Store/Specification.hs
--- a/library/Test/EventSource/Store/Specification.hs
+++ b/library/Test/EventSource/Store/Specification.hs
@@ -127,6 +127,45 @@
 
     st `shouldBe` (10 :: Int)
 
+  specify "API - forSavedEvents" $ do
+    let events = fmap TestEvent [0..9]
+    name <- freshStreamName
+    _ <- wait =<< appendEvents store name AnyVersion events
+
+    let action = do
+          forSavedEvents store name $ \(_ :: SavedEvent) -> modify incr
+          get
+
+    res <- runExceptT $ mapExceptT (\m -> evalStateT m 0) action
+
+    res `shouldSatisfy` either (const False) (const True)
+    let Right st = res
+
+    st `shouldBe` (10 :: Int)
+
+  specify "API - foldSavedEvents" $ do
+    let values = [0..9]
+        events = fmap TestEvent values
+        seed   = Right (0, EventNumber 0)
+        
+        testFold (Left e) _           = Left e
+        testFold (Right (a, n)) saved =
+          let n' = eventNumber saved
+              ee = decodeEvent $ savedEvent saved in
+          case ee of
+            Left t               -> Left t
+            Right (TestEvent a') -> Right (a + a', max n n')
+        
+    name <- freshStreamName
+    _ <- wait =<< appendEvents store name AnyVersion events
+
+    res <- runExceptT $ foldSavedEvents store name testFold seed
+
+    res `shouldSatisfy` either (const False) (const True)
+    let Right st = res
+
+    st `shouldBe` Right (sum values, EventNumber 9)
+
   specify "API - Iterator.readAllEvents" $ do
     let events = fmap TestEvent [0..9]
     name <- freshStreamName
diff --git a/package.yaml b/package.yaml
--- a/package.yaml
+++ b/package.yaml
@@ -16,7 +16,7 @@
     - NoImplicitPrelude
   dependencies:
   - base >=4.9 && <5
-  - protolude >= 0.1.10 && <0.2
+  - protolude >= 0.1.10 && <0.3
   - eventsource-api ==1.*
   - tasty
   - tasty-hspec
@@ -30,4 +30,4 @@
 maintainer: yo.eight@gmail.com
 name: eventsource-store-specs
 synopsis: Provides common test specification for Store implementation.
-version: '1.0.0'
+version: '1.0.1'
diff --git a/stack.yaml b/stack.yaml
--- a/stack.yaml
+++ b/stack.yaml
@@ -15,7 +15,8 @@
 # resolver:
 #  name: custom-snapshot
 #  location: "./custom-snapshot.yaml"
-resolver: lts-7.14
+resolver: nightly-2017-08-15
+compiler: ghc-8.2.1
 
 # User packages to be built.
 # Various formats can be used as shown in the example below.