diff --git a/Cabal-syntax.cabal b/Cabal-syntax.cabal
--- a/Cabal-syntax.cabal
+++ b/Cabal-syntax.cabal
@@ -1,6 +1,6 @@
 cabal-version: 2.2
 name:          Cabal-syntax
-version:       3.14.0.0
+version:       3.14.1.0
 copyright:     2003-2024, Cabal Development Team (see AUTHORS file)
 license:       BSD-3-Clause
 license-file:  LICENSE
diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,1 +1,1 @@
-Please see https://github.com/haskell/cabal/blob/master/release-notes/Cabal-3.14.0.0.md
+Please see https://github.com/haskell/cabal/blob/master/release-notes/Cabal-3.14.1.0.md
diff --git a/src/Distribution/Compat/Binary.hs b/src/Distribution/Compat/Binary.hs
--- a/src/Distribution/Compat/Binary.hs
+++ b/src/Distribution/Compat/Binary.hs
@@ -20,4 +20,4 @@
 decodeOrFailIO bs =
   catch (evaluate (decode bs) >>= return . Right) handler
   where
-    handler (ErrorCallWithLocation str _) = return $ Left str
+    handler (ErrorCall str) = return $ Left str
diff --git a/src/Distribution/Utils/Structured.hs b/src/Distribution/Utils/Structured.hs
--- a/src/Distribution/Utils/Structured.hs
+++ b/src/Distribution/Utils/Structured.hs
@@ -277,7 +277,7 @@
 structuredDecodeOrFailIO bs =
   catch (evaluate (structuredDecode bs) >>= return . Right) handler
   where
-    handler (ErrorCallWithLocation str _) = return $ Left str
+    handler (ErrorCall str) = return $ Left str
 
 -- | Lazily reconstruct a value previously written to a file.
 structuredDecodeFileOrFail :: (Binary.Binary a, Structured a) => FilePath -> IO (Either String a)