We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8518aba commit f9a5029Copy full SHA for f9a5029
src/Database/PostgreSQL/LibPQ/Enums.hsc
@@ -197,12 +197,14 @@ data Verbosity
197
= ErrorsTerse
198
| ErrorsDefault
199
| ErrorsVerbose
200
+ | ErrorsSqlstate
201
deriving (Eq, Show)
202
203
instance FromCInt Verbosity where
- fromCInt (#const PQERRORS_TERSE) = Just ErrorsTerse
204
- fromCInt (#const PQERRORS_DEFAULT) = Just ErrorsDefault
205
- fromCInt (#const PQERRORS_VERBOSE) = Just ErrorsVerbose
+ fromCInt (#const PQERRORS_TERSE) = Just ErrorsTerse
+ fromCInt (#const PQERRORS_DEFAULT) = Just ErrorsDefault
206
+ fromCInt (#const PQERRORS_VERBOSE) = Just ErrorsVerbose
207
+ fromCInt (#const PQERRORS_SQLSTATE) = Just ErrorsSqlstate
208
fromCInt _ = Nothing
209
210
instance ToCInt Verbosity where
0 commit comments