From c7e395c607724e5d7ddd4b9e5dd99faf1f6a8dc8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20Syn=C3=A1=C4=8Dek?= <jan.synacek@scrive.com>
Date: Tue, 31 May 2022 20:06:08 +0200
Subject: [PATCH] Fix build with ghc-9.2.3

---
 src/Prelude.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Prelude.hs b/src/Prelude.hs
index c3ea3bc..e2b89ea 100644
--- a/src/Prelude.hs
+++ b/src/Prelude.hs
@@ -201,7 +201,7 @@ whenNothing Nothing  m = m
 
 -- | Like 'error', but with a more conspicous name.
 unexpectedError :: HasCallStack => Text -> a
-unexpectedError errMsg = withFrozenCallStack . P.error $ T.unpack errMsg
+unexpectedError errMsg = withFrozenCallStack (P.error $ T.unpack errMsg)
 
 throwLeft :: (MonadThrow m, Exception e) => Either e a -> m a
 throwLeft = either throwM pure