diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,11 @@
 # Changelog
 
+## [1.0.0.4] - 2022-10-04
+
+### Changed
+
+* Compatibility with `hspec >= 2.11.10`.
+
 ## [1.0.0.3] - 2022-10-04
 
 ### Changed
diff --git a/genvalidity-hspec.cabal b/genvalidity-hspec.cabal
--- a/genvalidity-hspec.cabal
+++ b/genvalidity-hspec.cabal
@@ -1,11 +1,11 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.35.2.
+-- This file has been generated from package.yaml by hpack version 0.36.1.
 --
 -- see: https://github.com/sol/hpack
 
 name:           genvalidity-hspec
-version:        1.0.0.3
+version:        1.0.0.4
 synopsis:       Standard spec's for GenValidity instances
 description:    Note: There are companion packages for this library:
                 .
diff --git a/src/Test/Validity/Eq.hs b/src/Test/Validity/Eq.hs
--- a/src/Test/Validity/Eq.hs
+++ b/src/Test/Validity/Eq.hs
@@ -23,13 +23,13 @@
 
 eqTypeStr ::
   forall a.
-  Typeable a =>
+  (Typeable a) =>
   String
 eqTypeStr = binRelStr @a "=="
 
 neqTypeStr ::
   forall a.
-  Typeable a =>
+  (Typeable a) =>
   String
 neqTypeStr = binRelStr @a "/="
 
diff --git a/src/Test/Validity/Monoid.hs b/src/Test/Validity/Monoid.hs
--- a/src/Test/Validity/Monoid.hs
+++ b/src/Test/Validity/Monoid.hs
@@ -24,13 +24,13 @@
 
 memptyTypeStr ::
   forall a.
-  Typeable a =>
+  (Typeable a) =>
   String
 memptyTypeStr = unwords ["mempty", "::", nameOf @a]
 
 mappendTypeStr ::
   forall a.
-  Typeable a =>
+  (Typeable a) =>
   String
 mappendTypeStr = unwords ["mappend", "::", an, "->", an, "->", an]
   where
@@ -38,7 +38,7 @@
 
 mconcatTypeStr ::
   forall a.
-  Typeable a =>
+  (Typeable a) =>
   String
 mconcatTypeStr = unwords ["mconcat", "::", "[" ++ an ++ "]", "->", an]
   where
diff --git a/src/Test/Validity/Ord.hs b/src/Test/Validity/Ord.hs
--- a/src/Test/Validity/Ord.hs
+++ b/src/Test/Validity/Ord.hs
@@ -31,25 +31,25 @@
 
 leTypeStr ::
   forall a.
-  Typeable a =>
+  (Typeable a) =>
   String
 leTypeStr = binRelStr @a "<="
 
 geTypeStr ::
   forall a.
-  Typeable a =>
+  (Typeable a) =>
   String
 geTypeStr = binRelStr @a ">="
 
 ltTypeStr ::
   forall a.
-  Typeable a =>
+  (Typeable a) =>
   String
 ltTypeStr = binRelStr @a "<"
 
 gtTypeStr ::
   forall a.
-  Typeable a =>
+  (Typeable a) =>
   String
 gtTypeStr = binRelStr @a ">"
 
diff --git a/src/Test/Validity/Utils.hs b/src/Test/Validity/Utils.hs
--- a/src/Test/Validity/Utils.hs
+++ b/src/Test/Validity/Utils.hs
@@ -33,7 +33,7 @@
 
 nameOf ::
   forall a.
-  Typeable a =>
+  (Typeable a) =>
   String
 nameOf =
   let s = show $ typeRep (Proxy @a)
@@ -43,14 +43,14 @@
 
 genDescr ::
   forall a.
-  Typeable a =>
+  (Typeable a) =>
   String ->
   String
 genDescr genname = unwords ["\"" ++ genname, "::", nameOf @a ++ "\""]
 
 binRelStr ::
   forall a.
-  Typeable a =>
+  (Typeable a) =>
   String ->
   String
 binRelStr op = unwords ["(" ++ op ++ ")", "::", name, "->", name, "->", "Bool"]
@@ -76,7 +76,7 @@
 #else
 mapSpecTree' f (SpecM specs) = SpecM (mapWriterT (fmap (second (map f))) specs)
 #endif
-
+{- ORMOLU_DISABLE -}
 -- | Asserts that a given 'Spec' tree fails _somewhere_.
 --
 -- It also shows the given string when reporting that the tree unexpectedly
@@ -92,6 +92,9 @@
             itemLocation = Nothing,
             itemIsFocused = False,
             itemIsParallelizable = Nothing,
+#if MIN_VERSION_hspec(2,11,10)
+            itemAnnotations = mempty,
+#endif
             itemExample =
               \_ _ _ -> do
                 let conf =
@@ -101,6 +104,7 @@
                       summaryExamples r > 0 && summaryFailures r > 0
                 pure $ produceResult succesful
           }
+{- ORMOLU_ENABLE -}
 
 produceResult :: Bool -> Test.Hspec.Core.Spec.Result
 produceResult succesful =