Use lenient decode just in case server error messages bring some inva…

…lid UTF8
diogob · Mar 13, 2024 · b51d479 · b51d479
1 parent 61c7c55
commit b51d479
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Hasql/Notifications.hs b/src/Hasql/Notifications.hs
@@ -183,7 +183,7 @@ waitForNotifications sendNotification con =
  result <- PQ.consumeInput pqCon
  unless result $ do
  mError <- PQ.errorMessage pqCon
- panic $ maybe "Error checking for PostgreSQL notifications" (T.unpack . T.decodeUtf8) mError
+ panic $ maybe "Error checking for PostgreSQL notifications" (T.unpack . T.decodeUtf8Lenient) mError
  Just notification ->
  sendNotification (PQ.notifyRelname notification) (PQ.notifyExtra notification)
  panic :: String -> a