{-# LINE 1 "DB/HSQL/PG/Status.hsc" #-} module DB.HSQL.PG.Status where {-# LINE 2 "DB/HSQL/PG/Status.hsc" #-} import Foreign(Word32) {-# LINE 6 "DB/HSQL/PG/Status.hsc" #-} -- | type ConnStatusType = Word32 {-# LINE 8 "DB/HSQL/PG/Status.hsc" #-} type ExecStatusType = Word32 {-# LINE 9 "DB/HSQL/PG/Status.hsc" #-} -- | connectionOk:: ConnStatusType connectionOk = (0) {-# LINE 14 "DB/HSQL/PG/Status.hsc" #-} -- | pgTuplesOk:: ExecStatusType pgTuplesOk = (2) {-# LINE 19 "DB/HSQL/PG/Status.hsc" #-} -- | pgCommandOk:: ExecStatusType pgCommandOk = (1) {-# LINE 24 "DB/HSQL/PG/Status.hsc" #-} -- | pgFatalError:: ExecStatusType pgFatalError = (7)