1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
{- -*- mode: haskell; -*-
vim: set filetype=haskell:
-}
module Database.HDBC.Sqlite3.Consts
(sqlite_OK,
sqlite_ERROR,
sqlite_INTERNAL,
sqlite_PERM,
sqlite_ABORT,
sqlite_BUSY,
sqlite_LOCKED,
sqlite_NOMEM,
sqlite_READONLY,
sqlite_INTERRUPT,
sqlite_IOERR,
sqlite_CORRUPT,
sqlite_NOTFOUND,
sqlite_FULL,
sqlite_CANTOPEN,
sqlite_PROTOCOL,
sqlite_EMPTY,
sqlite_SCHEMA,
sqlite_TOOBIG,
sqlite_CONSTRAINT,
sqlite_MISMATCH,
sqlite_MISUSE,
sqlite_NOLFS,
sqlite_AUTH,
sqlite_ROW,
sqlite_DONE)
where
import Foreign.C.Types
#include <sqlite3.h>
-- | Successful result
sqlite_OK :: Int
sqlite_OK = #{const SQLITE_OK}
-- | SQL error or missing database
sqlite_ERROR :: Int
sqlite_ERROR = #{const SQLITE_ERROR}
-- | An internal logic error in SQLite
sqlite_INTERNAL :: Int
sqlite_INTERNAL = #{const SQLITE_INTERNAL}
-- | Access permission denied
sqlite_PERM :: Int
sqlite_PERM = #{const SQLITE_PERM}
-- | Callback routine requested an abort
sqlite_ABORT :: Int
sqlite_ABORT = #{const SQLITE_ABORT}
-- | The database file is locked
sqlite_BUSY :: Int
sqlite_BUSY = #{const SQLITE_BUSY}
-- | A table in the database is locked
sqlite_LOCKED :: Int
sqlite_LOCKED = #{const SQLITE_LOCKED}
-- | A malloc() failed
sqlite_NOMEM :: Int
sqlite_NOMEM = #{const SQLITE_NOMEM}
-- | Attempt to write a readonly database
sqlite_READONLY :: Int
sqlite_READONLY = #{const SQLITE_READONLY}
-- | Operation terminated by sqlite_interrupt()
sqlite_INTERRUPT :: Int
sqlite_INTERRUPT = #{const SQLITE_INTERRUPT}
-- | Some kind of disk I\/O error occurred
sqlite_IOERR :: Int
sqlite_IOERR = #{const SQLITE_IOERR}
-- | The database disk image is malformed
sqlite_CORRUPT :: Int
sqlite_CORRUPT = #{const SQLITE_CORRUPT}
-- | (Internal Only) Table or record not found
sqlite_NOTFOUND :: Int
sqlite_NOTFOUND = #{const SQLITE_NOTFOUND}
-- | Insertion failed because database is full
sqlite_FULL :: Int
sqlite_FULL = #{const SQLITE_FULL}
-- | Unable to open the database file
sqlite_CANTOPEN :: Int
sqlite_CANTOPEN = #{const SQLITE_CANTOPEN}
-- | Database lock protocol error
sqlite_PROTOCOL :: Int
sqlite_PROTOCOL = #{const SQLITE_PROTOCOL}
-- | (Internal Only) Database table is empty
sqlite_EMPTY :: Int
sqlite_EMPTY = #{const SQLITE_EMPTY}
-- | The database schema changed
sqlite_SCHEMA :: Int
sqlite_SCHEMA = #{const SQLITE_SCHEMA}
-- | Too much data for one row of a table
sqlite_TOOBIG :: Int
sqlite_TOOBIG = #{const SQLITE_TOOBIG}
-- | Abort due to constraint violation
sqlite_CONSTRAINT :: Int
sqlite_CONSTRAINT = #{const SQLITE_CONSTRAINT}
-- | Data type mismatch
sqlite_MISMATCH :: Int
sqlite_MISMATCH = #{const SQLITE_MISMATCH}
-- | Library used incorrectly
sqlite_MISUSE :: Int
sqlite_MISUSE = #{const SQLITE_MISUSE}
-- | Uses OS features not supported on host
sqlite_NOLFS :: Int
sqlite_NOLFS = #{const SQLITE_NOLFS}
-- | Authorization denied
sqlite_AUTH :: Int
sqlite_AUTH = #{const SQLITE_AUTH}
-- | sqlite_step() has another row ready
sqlite_ROW :: Int
sqlite_ROW = #{const SQLITE_ROW}
-- | sqlite_step() has finished executing
sqlite_DONE :: Int
sqlite_DONE = #{const SQLITE_DONE}
|
