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 0e642ea commit 86ad439Copy full SHA for 86ad439
src/Database/PostgreSQL/LibPQ/Enums.hsc
@@ -197,14 +197,12 @@ data Verbosity
197
= ErrorsTerse
198
| ErrorsDefault
199
| ErrorsVerbose
200
- | ErrorsSqlstate
201
deriving (Eq, Show)
202
203
instance FromCInt Verbosity where
204
- fromCInt (#const PQERRORS_TERSE) = Just ErrorsTerse
205
- fromCInt (#const PQERRORS_DEFAULT) = Just ErrorsDefault
206
- fromCInt (#const PQERRORS_VERBOSE) = Just ErrorsVerbose
207
- fromCInt (#const PQERRORS_SQLSTATE) = Just ErrorsSqlstate
+ fromCInt (#const PQERRORS_TERSE) = Just ErrorsTerse
+ fromCInt (#const PQERRORS_DEFAULT) = Just ErrorsDefault
+ fromCInt (#const PQERRORS_VERBOSE) = Just ErrorsVerbose
208
fromCInt _ = Nothing
209
210
instance ToCInt Verbosity where
0 commit comments