diff --git a/CHANGELOG.md b/CHANGELOG.md
new file mode 100644
--- /dev/null
+++ b/CHANGELOG.md
@@ -0,0 +1,35 @@
+# Changelog
+
+## [Unreleased]
+
+## [0.7.0.2] - 2019-09-23
+
+* Removed nonsense shrinking from `genValidSpec` and `genInvalidSpec`.
+
+## [0.7.0.1] - 2019-09-23
+
+* Removed nonsense shrinking from `arbitraryGeneratesOnlyValid`, `genValidGeneratesValid` and `genInvalidGeneratesInvalid`.
+
+## [0.7.0.0] - 2019-03-06
+
+### Changed
+
+* Fixed compatibility with genvalidity >=0.8
+
+## [0.6.2.3] - 2019-02-28
+
+### Changed
+
+* Clearer docs
+
+## [0.6.2.2] - 2019-01-09
+
+### Changed
+
+* Fixed a forward incompatibility with hspec 2.6.x.
+
+## [0.3.0.1] - 2018-10-07
+
+### Changed
+
+* Compatibility with validity >=0.9, genvalidity >=0.7 and genvalidity-property >=0.3
diff --git a/genvalidity-hspec.cabal b/genvalidity-hspec.cabal
--- a/genvalidity-hspec.cabal
+++ b/genvalidity-hspec.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 791bd7ba810f379cf44a24551a54e049c374b48876b9f51b9fd0bb8807eb27e5
+-- hash: 581e0a424038dd8eec6c87a2e653811f0ab38272f8a71ee0326a6cd492ab8fb4
 
 name:           genvalidity-hspec
-version:        0.7.0.1
+version:        0.7.0.2
 synopsis:       Standard spec's for GenValidity instances
 description:    Note: There are companion packages for this library:
                 .
@@ -28,6 +28,8 @@
 license:        MIT
 license-file:   LICENSE
 build-type:     Simple
+extra-source-files:
+    CHANGELOG.md
 
 source-repository head
   type: git
diff --git a/src/Test/Validity/GenValidity.hs b/src/Test/Validity/GenValidity.hs
--- a/src/Test/Validity/GenValidity.hs
+++ b/src/Test/Validity/GenValidity.hs
@@ -61,7 +61,7 @@
         describe ("GenValid " ++ name) $
             describe ("genValid   :: Gen " ++ name) $
             it ("only generates valid \'" ++ name ++ "\'s") $
-            forAllShrink genValid shrinkValid $ shouldBeValid @a
+                genValidGeneratesValid @a
 
 -- | A @Spec@ that specifies that @genInvalid@ only generates invalid data.
 --
@@ -79,7 +79,7 @@
         describe ("GenInvalid " ++ name) $
             describe ("genInvalid :: Gen " ++ name) $
             it ("only generates invalid \'" ++ name ++ "\'s") $
-            forAllShrink genInvalid shrinkInvalid $ shouldBeInvalid @a
+                genInvalidGeneratesInvalid @a
 
 -- | @genValid@ only generates valid data
 --