From f9a5029fc35c487ca67e1eb7aab3eafd0e34d5dc Mon Sep 17 00:00:00 2001 From: Taimoor Zaeem Date: Fri, 4 Jul 2025 19:27:18 +0500 Subject: [PATCH] Add PQERRORS_SQLSTATE enum to type Verbosity --- src/Database/PostgreSQL/LibPQ/Enums.hsc | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/Database/PostgreSQL/LibPQ/Enums.hsc b/src/Database/PostgreSQL/LibPQ/Enums.hsc index 52001a1..916612e 100644 --- a/src/Database/PostgreSQL/LibPQ/Enums.hsc +++ b/src/Database/PostgreSQL/LibPQ/Enums.hsc @@ -197,12 +197,14 @@ data Verbosity = ErrorsTerse | ErrorsDefault | ErrorsVerbose + | ErrorsSqlstate deriving (Eq, Show) instance FromCInt Verbosity where - fromCInt (#const PQERRORS_TERSE) = Just ErrorsTerse - fromCInt (#const PQERRORS_DEFAULT) = Just ErrorsDefault - fromCInt (#const PQERRORS_VERBOSE) = Just ErrorsVerbose + fromCInt (#const PQERRORS_TERSE) = Just ErrorsTerse + fromCInt (#const PQERRORS_DEFAULT) = Just ErrorsDefault + fromCInt (#const PQERRORS_VERBOSE) = Just ErrorsVerbose + fromCInt (#const PQERRORS_SQLSTATE) = Just ErrorsSqlstate fromCInt _ = Nothing instance ToCInt Verbosity where