{-# LINE 1 "Database/SQLite3/Bindings/Types.hsc" #-}
{-# LANGUAGE EmptyDataDecls #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE DeriveGeneric #-}
module Database.SQLite3.Bindings.Types (
CDatabase,
CStatement,
CValue,
CContext,
CBlob,
CBackup,
CError(..),
decodeError,
encodeError,
Error(..),
CColumnType(..),
decodeColumnType,
encodeColumnType,
ColumnType(..),
ParamIndex(..),
ColumnIndex(..),
ColumnCount,
CParamIndex(..),
CColumnIndex(..),
CColumnCount,
CNumBytes(..),
CDestructor,
c_SQLITE_STATIC,
c_SQLITE_TRANSIENT,
c_SQLITE_UTF8,
ArgCount(..),
ArgIndex,
CArgCount(..),
c_SQLITE_DETERMINISTIC,
FFIType(..),
) where
{-# LINE 60 "Database/SQLite3/Bindings/Types.hsc" #-}
{-# LINE 62 "Database/SQLite3/Bindings/Types.hsc" #-}
import GHC.Generics
import Foreign.C.Types
import Foreign.Ptr
data Error = ErrorOK
| ErrorError
| ErrorInternal
| ErrorPermission
| ErrorAbort
| ErrorBusy
| ErrorLocked
| ErrorNoMemory
| ErrorReadOnly
| ErrorInterrupt
| ErrorIO
| ErrorCorrupt
| ErrorNotFound
| ErrorFull
| ErrorCan'tOpen
| ErrorProtocol
| ErrorEmpty
| ErrorSchema
| ErrorTooBig
| ErrorConstraint
| ErrorMismatch
| ErrorMisuse
| ErrorNoLargeFileSupport
| ErrorAuthorization
| ErrorFormat
| ErrorRange
| ErrorNotADatabase
| ErrorNotice
| ErrorWarning
| ErrorRow
| ErrorDone
| ErrorErrorMissingCollatingSquence
| ErrorErrorRetry
| ErrorErrorSnapshot
| ErrorIORead
| ErrorIOShortRead
| ErrorIOWrite
| ErrorIOFsync
| ErrorIODirectoryFsync
| ErrorIOTruncate
| ErrorIOFstat
| ErrorIOUnlock
| ErrorIOReadLock
| ErrorIOBlocked
| ErrorIODelete
| ErrorIONoMemory
| ErrorIOAccess
| ErrorIOCheckReservedLock
| ErrorIOLock
| ErrorIOClose
| ErrorIODirectoryClose
| ErrorIOShmOpen
| ErrorIOShmSize
| ErrorIOShmLock
| ErrorIOShmMap
| ErrorIOSeek
| ErrorIODeleteNoEntity
| ErrorIOMmap
| ErrorIOGetTempPath
| ErrorIOConvertedPath
| ErrorIOVNode
| ErrorIOAuth
| ErrorIOBeginAtomic
| ErrorIOCommitAtomic
| ErrorIORollbackAtomic
| ErrorIOData
| ErrorIOCorruptFilesystem
| ErrorLockedSharedCache
| ErrorLockedVirtualTable
| ErrorBusyRecovery
| ErrorBusySnapshot
| ErrorBusyTimeout
| ErrorCan'tOpenNotTempDirectory
| ErrorCan'tOpenIsDirectory
| ErrorCan'tOpenFullPath
| ErrorCan'tOpenConvertedPath
| ErrorCan'tOpenDirtyWriteAheadLog
| ErrorCan'tOpenSymlink
| ErrorCorruptVirtualTable
| ErrorCorruptSequence
| ErrorCorruptIndex
| ErrorReadOnlyRecovery
| ErrorReadOnlyCan'tLock
| ErrorReadOnlyRollback
| ErrorReadOnlyDatabaseMoved
| ErrorReadOnlyCan'tInit
| ErrorReadOnlyDirectory
| ErrorAbortRollback
| ErrorConstraintCheck
| ErrorConstraintCommitHook
| ErrorConstraintForeignKey
| ErrorConstraintFunction
| ErrorConstraintNotNull
| ErrorConstraintPrimaryKey
| ErrorConstraintTrigger
| ErrorConstraintUnique
| ErrorConstraintVirtualTable
| ErrorConstraintRowId
| ErrorConstraintPinned
| ErrorConstraintDataType
| ErrorNoticeRecoverWriteAheadLog
| ErrorNoticeRecoverRollback
| ErrorWarningAutoIndex
| ErrorAuthUser
| ErrorOkLoadPermanently
deriving (Error -> Error -> Bool
(Error -> Error -> Bool) -> (Error -> Error -> Bool) -> Eq Error
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Error -> Error -> Bool
== :: Error -> Error -> Bool
$c/= :: Error -> Error -> Bool
/= :: Error -> Error -> Bool
Eq, Int -> Error -> ShowS
[Error] -> ShowS
Error -> String
(Int -> Error -> ShowS)
-> (Error -> String) -> ([Error] -> ShowS) -> Show Error
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Error -> ShowS
showsPrec :: Int -> Error -> ShowS
$cshow :: Error -> String
show :: Error -> String
$cshowList :: [Error] -> ShowS
showList :: [Error] -> ShowS
Show, (forall x. Error -> Rep Error x)
-> (forall x. Rep Error x -> Error) -> Generic Error
forall x. Rep Error x -> Error
forall x. Error -> Rep Error x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. Error -> Rep Error x
from :: forall x. Error -> Rep Error x
$cto :: forall x. Rep Error x -> Error
to :: forall x. Rep Error x -> Error
Generic)
data ColumnType = IntegerColumn
| FloatColumn
| TextColumn
| BlobColumn
| NullColumn
deriving (ColumnType -> ColumnType -> Bool
(ColumnType -> ColumnType -> Bool)
-> (ColumnType -> ColumnType -> Bool) -> Eq ColumnType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ColumnType -> ColumnType -> Bool
== :: ColumnType -> ColumnType -> Bool
$c/= :: ColumnType -> ColumnType -> Bool
/= :: ColumnType -> ColumnType -> Bool
Eq, Int -> ColumnType -> ShowS
[ColumnType] -> ShowS
ColumnType -> String
(Int -> ColumnType -> ShowS)
-> (ColumnType -> String)
-> ([ColumnType] -> ShowS)
-> Show ColumnType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ColumnType -> ShowS
showsPrec :: Int -> ColumnType -> ShowS
$cshow :: ColumnType -> String
show :: ColumnType -> String
$cshowList :: [ColumnType] -> ShowS
showList :: [ColumnType] -> ShowS
Show)
data CDatabase
data CStatement
data CValue
data CContext
data CBlob
data CBackup
newtype ParamIndex = ParamIndex Int
deriving (ParamIndex -> ParamIndex -> Bool
(ParamIndex -> ParamIndex -> Bool)
-> (ParamIndex -> ParamIndex -> Bool) -> Eq ParamIndex
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ParamIndex -> ParamIndex -> Bool
== :: ParamIndex -> ParamIndex -> Bool
$c/= :: ParamIndex -> ParamIndex -> Bool
/= :: ParamIndex -> ParamIndex -> Bool
Eq, Eq ParamIndex
Eq ParamIndex =>
(ParamIndex -> ParamIndex -> Ordering)
-> (ParamIndex -> ParamIndex -> Bool)
-> (ParamIndex -> ParamIndex -> Bool)
-> (ParamIndex -> ParamIndex -> Bool)
-> (ParamIndex -> ParamIndex -> Bool)
-> (ParamIndex -> ParamIndex -> ParamIndex)
-> (ParamIndex -> ParamIndex -> ParamIndex)
-> Ord ParamIndex
ParamIndex -> ParamIndex -> Bool
ParamIndex -> ParamIndex -> Ordering
ParamIndex -> ParamIndex -> ParamIndex
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ParamIndex -> ParamIndex -> Ordering
compare :: ParamIndex -> ParamIndex -> Ordering
$c< :: ParamIndex -> ParamIndex -> Bool
< :: ParamIndex -> ParamIndex -> Bool
$c<= :: ParamIndex -> ParamIndex -> Bool
<= :: ParamIndex -> ParamIndex -> Bool
$c> :: ParamIndex -> ParamIndex -> Bool
> :: ParamIndex -> ParamIndex -> Bool
$c>= :: ParamIndex -> ParamIndex -> Bool
>= :: ParamIndex -> ParamIndex -> Bool
$cmax :: ParamIndex -> ParamIndex -> ParamIndex
max :: ParamIndex -> ParamIndex -> ParamIndex
$cmin :: ParamIndex -> ParamIndex -> ParamIndex
min :: ParamIndex -> ParamIndex -> ParamIndex
Ord, Int -> ParamIndex
ParamIndex -> Int
ParamIndex -> [ParamIndex]
ParamIndex -> ParamIndex
ParamIndex -> ParamIndex -> [ParamIndex]
ParamIndex -> ParamIndex -> ParamIndex -> [ParamIndex]
(ParamIndex -> ParamIndex)
-> (ParamIndex -> ParamIndex)
-> (Int -> ParamIndex)
-> (ParamIndex -> Int)
-> (ParamIndex -> [ParamIndex])
-> (ParamIndex -> ParamIndex -> [ParamIndex])
-> (ParamIndex -> ParamIndex -> [ParamIndex])
-> (ParamIndex -> ParamIndex -> ParamIndex -> [ParamIndex])
-> Enum ParamIndex
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: ParamIndex -> ParamIndex
succ :: ParamIndex -> ParamIndex
$cpred :: ParamIndex -> ParamIndex
pred :: ParamIndex -> ParamIndex
$ctoEnum :: Int -> ParamIndex
toEnum :: Int -> ParamIndex
$cfromEnum :: ParamIndex -> Int
fromEnum :: ParamIndex -> Int
$cenumFrom :: ParamIndex -> [ParamIndex]
enumFrom :: ParamIndex -> [ParamIndex]
$cenumFromThen :: ParamIndex -> ParamIndex -> [ParamIndex]
enumFromThen :: ParamIndex -> ParamIndex -> [ParamIndex]
$cenumFromTo :: ParamIndex -> ParamIndex -> [ParamIndex]
enumFromTo :: ParamIndex -> ParamIndex -> [ParamIndex]
$cenumFromThenTo :: ParamIndex -> ParamIndex -> ParamIndex -> [ParamIndex]
enumFromThenTo :: ParamIndex -> ParamIndex -> ParamIndex -> [ParamIndex]
Enum, Integer -> ParamIndex
ParamIndex -> ParamIndex
ParamIndex -> ParamIndex -> ParamIndex
(ParamIndex -> ParamIndex -> ParamIndex)
-> (ParamIndex -> ParamIndex -> ParamIndex)
-> (ParamIndex -> ParamIndex -> ParamIndex)
-> (ParamIndex -> ParamIndex)
-> (ParamIndex -> ParamIndex)
-> (ParamIndex -> ParamIndex)
-> (Integer -> ParamIndex)
-> Num ParamIndex
forall a.
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> a)
-> (a -> a)
-> (Integer -> a)
-> Num a
$c+ :: ParamIndex -> ParamIndex -> ParamIndex
+ :: ParamIndex -> ParamIndex -> ParamIndex
$c- :: ParamIndex -> ParamIndex -> ParamIndex
- :: ParamIndex -> ParamIndex -> ParamIndex
$c* :: ParamIndex -> ParamIndex -> ParamIndex
* :: ParamIndex -> ParamIndex -> ParamIndex
$cnegate :: ParamIndex -> ParamIndex
negate :: ParamIndex -> ParamIndex
$cabs :: ParamIndex -> ParamIndex
abs :: ParamIndex -> ParamIndex
$csignum :: ParamIndex -> ParamIndex
signum :: ParamIndex -> ParamIndex
$cfromInteger :: Integer -> ParamIndex
fromInteger :: Integer -> ParamIndex
Num, Num ParamIndex
Ord ParamIndex
(Num ParamIndex, Ord ParamIndex) =>
(ParamIndex -> Rational) -> Real ParamIndex
ParamIndex -> Rational
forall a. (Num a, Ord a) => (a -> Rational) -> Real a
$ctoRational :: ParamIndex -> Rational
toRational :: ParamIndex -> Rational
Real, Enum ParamIndex
Real ParamIndex
(Real ParamIndex, Enum ParamIndex) =>
(ParamIndex -> ParamIndex -> ParamIndex)
-> (ParamIndex -> ParamIndex -> ParamIndex)
-> (ParamIndex -> ParamIndex -> ParamIndex)
-> (ParamIndex -> ParamIndex -> ParamIndex)
-> (ParamIndex -> ParamIndex -> (ParamIndex, ParamIndex))
-> (ParamIndex -> ParamIndex -> (ParamIndex, ParamIndex))
-> (ParamIndex -> Integer)
-> Integral ParamIndex
ParamIndex -> Integer
ParamIndex -> ParamIndex -> (ParamIndex, ParamIndex)
ParamIndex -> ParamIndex -> ParamIndex
forall a.
(Real a, Enum a) =>
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> (a, a))
-> (a -> a -> (a, a))
-> (a -> Integer)
-> Integral a
$cquot :: ParamIndex -> ParamIndex -> ParamIndex
quot :: ParamIndex -> ParamIndex -> ParamIndex
$crem :: ParamIndex -> ParamIndex -> ParamIndex
rem :: ParamIndex -> ParamIndex -> ParamIndex
$cdiv :: ParamIndex -> ParamIndex -> ParamIndex
div :: ParamIndex -> ParamIndex -> ParamIndex
$cmod :: ParamIndex -> ParamIndex -> ParamIndex
mod :: ParamIndex -> ParamIndex -> ParamIndex
$cquotRem :: ParamIndex -> ParamIndex -> (ParamIndex, ParamIndex)
quotRem :: ParamIndex -> ParamIndex -> (ParamIndex, ParamIndex)
$cdivMod :: ParamIndex -> ParamIndex -> (ParamIndex, ParamIndex)
divMod :: ParamIndex -> ParamIndex -> (ParamIndex, ParamIndex)
$ctoInteger :: ParamIndex -> Integer
toInteger :: ParamIndex -> Integer
Integral)
instance Show ParamIndex where
show :: ParamIndex -> String
show (ParamIndex Int
n) = Int -> String
forall a. Show a => a -> String
show Int
n
instance Bounded ParamIndex where
minBound :: ParamIndex
minBound = Int -> ParamIndex
ParamIndex (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (CInt
forall a. Bounded a => a
minBound :: CInt))
maxBound :: ParamIndex
maxBound = Int -> ParamIndex
ParamIndex (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (CInt
forall a. Bounded a => a
maxBound :: CInt))
newtype ColumnIndex = ColumnIndex Int
deriving (ColumnIndex -> ColumnIndex -> Bool
(ColumnIndex -> ColumnIndex -> Bool)
-> (ColumnIndex -> ColumnIndex -> Bool) -> Eq ColumnIndex
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ColumnIndex -> ColumnIndex -> Bool
== :: ColumnIndex -> ColumnIndex -> Bool
$c/= :: ColumnIndex -> ColumnIndex -> Bool
/= :: ColumnIndex -> ColumnIndex -> Bool
Eq, Eq ColumnIndex
Eq ColumnIndex =>
(ColumnIndex -> ColumnIndex -> Ordering)
-> (ColumnIndex -> ColumnIndex -> Bool)
-> (ColumnIndex -> ColumnIndex -> Bool)
-> (ColumnIndex -> ColumnIndex -> Bool)
-> (ColumnIndex -> ColumnIndex -> Bool)
-> (ColumnIndex -> ColumnIndex -> ColumnIndex)
-> (ColumnIndex -> ColumnIndex -> ColumnIndex)
-> Ord ColumnIndex
ColumnIndex -> ColumnIndex -> Bool
ColumnIndex -> ColumnIndex -> Ordering
ColumnIndex -> ColumnIndex -> ColumnIndex
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ColumnIndex -> ColumnIndex -> Ordering
compare :: ColumnIndex -> ColumnIndex -> Ordering
$c< :: ColumnIndex -> ColumnIndex -> Bool
< :: ColumnIndex -> ColumnIndex -> Bool
$c<= :: ColumnIndex -> ColumnIndex -> Bool
<= :: ColumnIndex -> ColumnIndex -> Bool
$c> :: ColumnIndex -> ColumnIndex -> Bool
> :: ColumnIndex -> ColumnIndex -> Bool
$c>= :: ColumnIndex -> ColumnIndex -> Bool
>= :: ColumnIndex -> ColumnIndex -> Bool
$cmax :: ColumnIndex -> ColumnIndex -> ColumnIndex
max :: ColumnIndex -> ColumnIndex -> ColumnIndex
$cmin :: ColumnIndex -> ColumnIndex -> ColumnIndex
min :: ColumnIndex -> ColumnIndex -> ColumnIndex
Ord, Int -> ColumnIndex
ColumnIndex -> Int
ColumnIndex -> [ColumnIndex]
ColumnIndex -> ColumnIndex
ColumnIndex -> ColumnIndex -> [ColumnIndex]
ColumnIndex -> ColumnIndex -> ColumnIndex -> [ColumnIndex]
(ColumnIndex -> ColumnIndex)
-> (ColumnIndex -> ColumnIndex)
-> (Int -> ColumnIndex)
-> (ColumnIndex -> Int)
-> (ColumnIndex -> [ColumnIndex])
-> (ColumnIndex -> ColumnIndex -> [ColumnIndex])
-> (ColumnIndex -> ColumnIndex -> [ColumnIndex])
-> (ColumnIndex -> ColumnIndex -> ColumnIndex -> [ColumnIndex])
-> Enum ColumnIndex
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: ColumnIndex -> ColumnIndex
succ :: ColumnIndex -> ColumnIndex
$cpred :: ColumnIndex -> ColumnIndex
pred :: ColumnIndex -> ColumnIndex
$ctoEnum :: Int -> ColumnIndex
toEnum :: Int -> ColumnIndex
$cfromEnum :: ColumnIndex -> Int
fromEnum :: ColumnIndex -> Int
$cenumFrom :: ColumnIndex -> [ColumnIndex]
enumFrom :: ColumnIndex -> [ColumnIndex]
$cenumFromThen :: ColumnIndex -> ColumnIndex -> [ColumnIndex]
enumFromThen :: ColumnIndex -> ColumnIndex -> [ColumnIndex]
$cenumFromTo :: ColumnIndex -> ColumnIndex -> [ColumnIndex]
enumFromTo :: ColumnIndex -> ColumnIndex -> [ColumnIndex]
$cenumFromThenTo :: ColumnIndex -> ColumnIndex -> ColumnIndex -> [ColumnIndex]
enumFromThenTo :: ColumnIndex -> ColumnIndex -> ColumnIndex -> [ColumnIndex]
Enum, Integer -> ColumnIndex
ColumnIndex -> ColumnIndex
ColumnIndex -> ColumnIndex -> ColumnIndex
(ColumnIndex -> ColumnIndex -> ColumnIndex)
-> (ColumnIndex -> ColumnIndex -> ColumnIndex)
-> (ColumnIndex -> ColumnIndex -> ColumnIndex)
-> (ColumnIndex -> ColumnIndex)
-> (ColumnIndex -> ColumnIndex)
-> (ColumnIndex -> ColumnIndex)
-> (Integer -> ColumnIndex)
-> Num ColumnIndex
forall a.
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> a)
-> (a -> a)
-> (Integer -> a)
-> Num a
$c+ :: ColumnIndex -> ColumnIndex -> ColumnIndex
+ :: ColumnIndex -> ColumnIndex -> ColumnIndex
$c- :: ColumnIndex -> ColumnIndex -> ColumnIndex
- :: ColumnIndex -> ColumnIndex -> ColumnIndex
$c* :: ColumnIndex -> ColumnIndex -> ColumnIndex
* :: ColumnIndex -> ColumnIndex -> ColumnIndex
$cnegate :: ColumnIndex -> ColumnIndex
negate :: ColumnIndex -> ColumnIndex
$cabs :: ColumnIndex -> ColumnIndex
abs :: ColumnIndex -> ColumnIndex
$csignum :: ColumnIndex -> ColumnIndex
signum :: ColumnIndex -> ColumnIndex
$cfromInteger :: Integer -> ColumnIndex
fromInteger :: Integer -> ColumnIndex
Num, Num ColumnIndex
Ord ColumnIndex
(Num ColumnIndex, Ord ColumnIndex) =>
(ColumnIndex -> Rational) -> Real ColumnIndex
ColumnIndex -> Rational
forall a. (Num a, Ord a) => (a -> Rational) -> Real a
$ctoRational :: ColumnIndex -> Rational
toRational :: ColumnIndex -> Rational
Real, Enum ColumnIndex
Real ColumnIndex
(Real ColumnIndex, Enum ColumnIndex) =>
(ColumnIndex -> ColumnIndex -> ColumnIndex)
-> (ColumnIndex -> ColumnIndex -> ColumnIndex)
-> (ColumnIndex -> ColumnIndex -> ColumnIndex)
-> (ColumnIndex -> ColumnIndex -> ColumnIndex)
-> (ColumnIndex -> ColumnIndex -> (ColumnIndex, ColumnIndex))
-> (ColumnIndex -> ColumnIndex -> (ColumnIndex, ColumnIndex))
-> (ColumnIndex -> Integer)
-> Integral ColumnIndex
ColumnIndex -> Integer
ColumnIndex -> ColumnIndex -> (ColumnIndex, ColumnIndex)
ColumnIndex -> ColumnIndex -> ColumnIndex
forall a.
(Real a, Enum a) =>
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> (a, a))
-> (a -> a -> (a, a))
-> (a -> Integer)
-> Integral a
$cquot :: ColumnIndex -> ColumnIndex -> ColumnIndex
quot :: ColumnIndex -> ColumnIndex -> ColumnIndex
$crem :: ColumnIndex -> ColumnIndex -> ColumnIndex
rem :: ColumnIndex -> ColumnIndex -> ColumnIndex
$cdiv :: ColumnIndex -> ColumnIndex -> ColumnIndex
div :: ColumnIndex -> ColumnIndex -> ColumnIndex
$cmod :: ColumnIndex -> ColumnIndex -> ColumnIndex
mod :: ColumnIndex -> ColumnIndex -> ColumnIndex
$cquotRem :: ColumnIndex -> ColumnIndex -> (ColumnIndex, ColumnIndex)
quotRem :: ColumnIndex -> ColumnIndex -> (ColumnIndex, ColumnIndex)
$cdivMod :: ColumnIndex -> ColumnIndex -> (ColumnIndex, ColumnIndex)
divMod :: ColumnIndex -> ColumnIndex -> (ColumnIndex, ColumnIndex)
$ctoInteger :: ColumnIndex -> Integer
toInteger :: ColumnIndex -> Integer
Integral)
instance Show ColumnIndex where
show :: ColumnIndex -> String
show (ColumnIndex Int
n) = Int -> String
forall a. Show a => a -> String
show Int
n
instance Bounded ColumnIndex where
minBound :: ColumnIndex
minBound = Int -> ColumnIndex
ColumnIndex (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (CInt
forall a. Bounded a => a
minBound :: CInt))
maxBound :: ColumnIndex
maxBound = Int -> ColumnIndex
ColumnIndex (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (CInt
forall a. Bounded a => a
maxBound :: CInt))
type ColumnCount = ColumnIndex
newtype CParamIndex = CParamIndex CInt
deriving (CParamIndex -> CParamIndex -> Bool
(CParamIndex -> CParamIndex -> Bool)
-> (CParamIndex -> CParamIndex -> Bool) -> Eq CParamIndex
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CParamIndex -> CParamIndex -> Bool
== :: CParamIndex -> CParamIndex -> Bool
$c/= :: CParamIndex -> CParamIndex -> Bool
/= :: CParamIndex -> CParamIndex -> Bool
Eq, Eq CParamIndex
Eq CParamIndex =>
(CParamIndex -> CParamIndex -> Ordering)
-> (CParamIndex -> CParamIndex -> Bool)
-> (CParamIndex -> CParamIndex -> Bool)
-> (CParamIndex -> CParamIndex -> Bool)
-> (CParamIndex -> CParamIndex -> Bool)
-> (CParamIndex -> CParamIndex -> CParamIndex)
-> (CParamIndex -> CParamIndex -> CParamIndex)
-> Ord CParamIndex
CParamIndex -> CParamIndex -> Bool
CParamIndex -> CParamIndex -> Ordering
CParamIndex -> CParamIndex -> CParamIndex
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CParamIndex -> CParamIndex -> Ordering
compare :: CParamIndex -> CParamIndex -> Ordering
$c< :: CParamIndex -> CParamIndex -> Bool
< :: CParamIndex -> CParamIndex -> Bool
$c<= :: CParamIndex -> CParamIndex -> Bool
<= :: CParamIndex -> CParamIndex -> Bool
$c> :: CParamIndex -> CParamIndex -> Bool
> :: CParamIndex -> CParamIndex -> Bool
$c>= :: CParamIndex -> CParamIndex -> Bool
>= :: CParamIndex -> CParamIndex -> Bool
$cmax :: CParamIndex -> CParamIndex -> CParamIndex
max :: CParamIndex -> CParamIndex -> CParamIndex
$cmin :: CParamIndex -> CParamIndex -> CParamIndex
min :: CParamIndex -> CParamIndex -> CParamIndex
Ord, Int -> CParamIndex
CParamIndex -> Int
CParamIndex -> [CParamIndex]
CParamIndex -> CParamIndex
CParamIndex -> CParamIndex -> [CParamIndex]
CParamIndex -> CParamIndex -> CParamIndex -> [CParamIndex]
(CParamIndex -> CParamIndex)
-> (CParamIndex -> CParamIndex)
-> (Int -> CParamIndex)
-> (CParamIndex -> Int)
-> (CParamIndex -> [CParamIndex])
-> (CParamIndex -> CParamIndex -> [CParamIndex])
-> (CParamIndex -> CParamIndex -> [CParamIndex])
-> (CParamIndex -> CParamIndex -> CParamIndex -> [CParamIndex])
-> Enum CParamIndex
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: CParamIndex -> CParamIndex
succ :: CParamIndex -> CParamIndex
$cpred :: CParamIndex -> CParamIndex
pred :: CParamIndex -> CParamIndex
$ctoEnum :: Int -> CParamIndex
toEnum :: Int -> CParamIndex
$cfromEnum :: CParamIndex -> Int
fromEnum :: CParamIndex -> Int
$cenumFrom :: CParamIndex -> [CParamIndex]
enumFrom :: CParamIndex -> [CParamIndex]
$cenumFromThen :: CParamIndex -> CParamIndex -> [CParamIndex]
enumFromThen :: CParamIndex -> CParamIndex -> [CParamIndex]
$cenumFromTo :: CParamIndex -> CParamIndex -> [CParamIndex]
enumFromTo :: CParamIndex -> CParamIndex -> [CParamIndex]
$cenumFromThenTo :: CParamIndex -> CParamIndex -> CParamIndex -> [CParamIndex]
enumFromThenTo :: CParamIndex -> CParamIndex -> CParamIndex -> [CParamIndex]
Enum, Integer -> CParamIndex
CParamIndex -> CParamIndex
CParamIndex -> CParamIndex -> CParamIndex
(CParamIndex -> CParamIndex -> CParamIndex)
-> (CParamIndex -> CParamIndex -> CParamIndex)
-> (CParamIndex -> CParamIndex -> CParamIndex)
-> (CParamIndex -> CParamIndex)
-> (CParamIndex -> CParamIndex)
-> (CParamIndex -> CParamIndex)
-> (Integer -> CParamIndex)
-> Num CParamIndex
forall a.
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> a)
-> (a -> a)
-> (Integer -> a)
-> Num a
$c+ :: CParamIndex -> CParamIndex -> CParamIndex
+ :: CParamIndex -> CParamIndex -> CParamIndex
$c- :: CParamIndex -> CParamIndex -> CParamIndex
- :: CParamIndex -> CParamIndex -> CParamIndex
$c* :: CParamIndex -> CParamIndex -> CParamIndex
* :: CParamIndex -> CParamIndex -> CParamIndex
$cnegate :: CParamIndex -> CParamIndex
negate :: CParamIndex -> CParamIndex
$cabs :: CParamIndex -> CParamIndex
abs :: CParamIndex -> CParamIndex
$csignum :: CParamIndex -> CParamIndex
signum :: CParamIndex -> CParamIndex
$cfromInteger :: Integer -> CParamIndex
fromInteger :: Integer -> CParamIndex
Num, Num CParamIndex
Ord CParamIndex
(Num CParamIndex, Ord CParamIndex) =>
(CParamIndex -> Rational) -> Real CParamIndex
CParamIndex -> Rational
forall a. (Num a, Ord a) => (a -> Rational) -> Real a
$ctoRational :: CParamIndex -> Rational
toRational :: CParamIndex -> Rational
Real, Enum CParamIndex
Real CParamIndex
(Real CParamIndex, Enum CParamIndex) =>
(CParamIndex -> CParamIndex -> CParamIndex)
-> (CParamIndex -> CParamIndex -> CParamIndex)
-> (CParamIndex -> CParamIndex -> CParamIndex)
-> (CParamIndex -> CParamIndex -> CParamIndex)
-> (CParamIndex -> CParamIndex -> (CParamIndex, CParamIndex))
-> (CParamIndex -> CParamIndex -> (CParamIndex, CParamIndex))
-> (CParamIndex -> Integer)
-> Integral CParamIndex
CParamIndex -> Integer
CParamIndex -> CParamIndex -> (CParamIndex, CParamIndex)
CParamIndex -> CParamIndex -> CParamIndex
forall a.
(Real a, Enum a) =>
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> (a, a))
-> (a -> a -> (a, a))
-> (a -> Integer)
-> Integral a
$cquot :: CParamIndex -> CParamIndex -> CParamIndex
quot :: CParamIndex -> CParamIndex -> CParamIndex
$crem :: CParamIndex -> CParamIndex -> CParamIndex
rem :: CParamIndex -> CParamIndex -> CParamIndex
$cdiv :: CParamIndex -> CParamIndex -> CParamIndex
div :: CParamIndex -> CParamIndex -> CParamIndex
$cmod :: CParamIndex -> CParamIndex -> CParamIndex
mod :: CParamIndex -> CParamIndex -> CParamIndex
$cquotRem :: CParamIndex -> CParamIndex -> (CParamIndex, CParamIndex)
quotRem :: CParamIndex -> CParamIndex -> (CParamIndex, CParamIndex)
$cdivMod :: CParamIndex -> CParamIndex -> (CParamIndex, CParamIndex)
divMod :: CParamIndex -> CParamIndex -> (CParamIndex, CParamIndex)
$ctoInteger :: CParamIndex -> Integer
toInteger :: CParamIndex -> Integer
Integral)
instance Show CParamIndex where
show :: CParamIndex -> String
show (CParamIndex CInt
n) = CInt -> String
forall a. Show a => a -> String
show CInt
n
newtype CColumnIndex = CColumnIndex CInt
deriving (CColumnIndex -> CColumnIndex -> Bool
(CColumnIndex -> CColumnIndex -> Bool)
-> (CColumnIndex -> CColumnIndex -> Bool) -> Eq CColumnIndex
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CColumnIndex -> CColumnIndex -> Bool
== :: CColumnIndex -> CColumnIndex -> Bool
$c/= :: CColumnIndex -> CColumnIndex -> Bool
/= :: CColumnIndex -> CColumnIndex -> Bool
Eq, Eq CColumnIndex
Eq CColumnIndex =>
(CColumnIndex -> CColumnIndex -> Ordering)
-> (CColumnIndex -> CColumnIndex -> Bool)
-> (CColumnIndex -> CColumnIndex -> Bool)
-> (CColumnIndex -> CColumnIndex -> Bool)
-> (CColumnIndex -> CColumnIndex -> Bool)
-> (CColumnIndex -> CColumnIndex -> CColumnIndex)
-> (CColumnIndex -> CColumnIndex -> CColumnIndex)
-> Ord CColumnIndex
CColumnIndex -> CColumnIndex -> Bool
CColumnIndex -> CColumnIndex -> Ordering
CColumnIndex -> CColumnIndex -> CColumnIndex
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CColumnIndex -> CColumnIndex -> Ordering
compare :: CColumnIndex -> CColumnIndex -> Ordering
$c< :: CColumnIndex -> CColumnIndex -> Bool
< :: CColumnIndex -> CColumnIndex -> Bool
$c<= :: CColumnIndex -> CColumnIndex -> Bool
<= :: CColumnIndex -> CColumnIndex -> Bool
$c> :: CColumnIndex -> CColumnIndex -> Bool
> :: CColumnIndex -> CColumnIndex -> Bool
$c>= :: CColumnIndex -> CColumnIndex -> Bool
>= :: CColumnIndex -> CColumnIndex -> Bool
$cmax :: CColumnIndex -> CColumnIndex -> CColumnIndex
max :: CColumnIndex -> CColumnIndex -> CColumnIndex
$cmin :: CColumnIndex -> CColumnIndex -> CColumnIndex
min :: CColumnIndex -> CColumnIndex -> CColumnIndex
Ord, Int -> CColumnIndex
CColumnIndex -> Int
CColumnIndex -> [CColumnIndex]
CColumnIndex -> CColumnIndex
CColumnIndex -> CColumnIndex -> [CColumnIndex]
CColumnIndex -> CColumnIndex -> CColumnIndex -> [CColumnIndex]
(CColumnIndex -> CColumnIndex)
-> (CColumnIndex -> CColumnIndex)
-> (Int -> CColumnIndex)
-> (CColumnIndex -> Int)
-> (CColumnIndex -> [CColumnIndex])
-> (CColumnIndex -> CColumnIndex -> [CColumnIndex])
-> (CColumnIndex -> CColumnIndex -> [CColumnIndex])
-> (CColumnIndex -> CColumnIndex -> CColumnIndex -> [CColumnIndex])
-> Enum CColumnIndex
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: CColumnIndex -> CColumnIndex
succ :: CColumnIndex -> CColumnIndex
$cpred :: CColumnIndex -> CColumnIndex
pred :: CColumnIndex -> CColumnIndex
$ctoEnum :: Int -> CColumnIndex
toEnum :: Int -> CColumnIndex
$cfromEnum :: CColumnIndex -> Int
fromEnum :: CColumnIndex -> Int
$cenumFrom :: CColumnIndex -> [CColumnIndex]
enumFrom :: CColumnIndex -> [CColumnIndex]
$cenumFromThen :: CColumnIndex -> CColumnIndex -> [CColumnIndex]
enumFromThen :: CColumnIndex -> CColumnIndex -> [CColumnIndex]
$cenumFromTo :: CColumnIndex -> CColumnIndex -> [CColumnIndex]
enumFromTo :: CColumnIndex -> CColumnIndex -> [CColumnIndex]
$cenumFromThenTo :: CColumnIndex -> CColumnIndex -> CColumnIndex -> [CColumnIndex]
enumFromThenTo :: CColumnIndex -> CColumnIndex -> CColumnIndex -> [CColumnIndex]
Enum, Integer -> CColumnIndex
CColumnIndex -> CColumnIndex
CColumnIndex -> CColumnIndex -> CColumnIndex
(CColumnIndex -> CColumnIndex -> CColumnIndex)
-> (CColumnIndex -> CColumnIndex -> CColumnIndex)
-> (CColumnIndex -> CColumnIndex -> CColumnIndex)
-> (CColumnIndex -> CColumnIndex)
-> (CColumnIndex -> CColumnIndex)
-> (CColumnIndex -> CColumnIndex)
-> (Integer -> CColumnIndex)
-> Num CColumnIndex
forall a.
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> a)
-> (a -> a)
-> (Integer -> a)
-> Num a
$c+ :: CColumnIndex -> CColumnIndex -> CColumnIndex
+ :: CColumnIndex -> CColumnIndex -> CColumnIndex
$c- :: CColumnIndex -> CColumnIndex -> CColumnIndex
- :: CColumnIndex -> CColumnIndex -> CColumnIndex
$c* :: CColumnIndex -> CColumnIndex -> CColumnIndex
* :: CColumnIndex -> CColumnIndex -> CColumnIndex
$cnegate :: CColumnIndex -> CColumnIndex
negate :: CColumnIndex -> CColumnIndex
$cabs :: CColumnIndex -> CColumnIndex
abs :: CColumnIndex -> CColumnIndex
$csignum :: CColumnIndex -> CColumnIndex
signum :: CColumnIndex -> CColumnIndex
$cfromInteger :: Integer -> CColumnIndex
fromInteger :: Integer -> CColumnIndex
Num, Num CColumnIndex
Ord CColumnIndex
(Num CColumnIndex, Ord CColumnIndex) =>
(CColumnIndex -> Rational) -> Real CColumnIndex
CColumnIndex -> Rational
forall a. (Num a, Ord a) => (a -> Rational) -> Real a
$ctoRational :: CColumnIndex -> Rational
toRational :: CColumnIndex -> Rational
Real, Enum CColumnIndex
Real CColumnIndex
(Real CColumnIndex, Enum CColumnIndex) =>
(CColumnIndex -> CColumnIndex -> CColumnIndex)
-> (CColumnIndex -> CColumnIndex -> CColumnIndex)
-> (CColumnIndex -> CColumnIndex -> CColumnIndex)
-> (CColumnIndex -> CColumnIndex -> CColumnIndex)
-> (CColumnIndex -> CColumnIndex -> (CColumnIndex, CColumnIndex))
-> (CColumnIndex -> CColumnIndex -> (CColumnIndex, CColumnIndex))
-> (CColumnIndex -> Integer)
-> Integral CColumnIndex
CColumnIndex -> Integer
CColumnIndex -> CColumnIndex -> (CColumnIndex, CColumnIndex)
CColumnIndex -> CColumnIndex -> CColumnIndex
forall a.
(Real a, Enum a) =>
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> (a, a))
-> (a -> a -> (a, a))
-> (a -> Integer)
-> Integral a
$cquot :: CColumnIndex -> CColumnIndex -> CColumnIndex
quot :: CColumnIndex -> CColumnIndex -> CColumnIndex
$crem :: CColumnIndex -> CColumnIndex -> CColumnIndex
rem :: CColumnIndex -> CColumnIndex -> CColumnIndex
$cdiv :: CColumnIndex -> CColumnIndex -> CColumnIndex
div :: CColumnIndex -> CColumnIndex -> CColumnIndex
$cmod :: CColumnIndex -> CColumnIndex -> CColumnIndex
mod :: CColumnIndex -> CColumnIndex -> CColumnIndex
$cquotRem :: CColumnIndex -> CColumnIndex -> (CColumnIndex, CColumnIndex)
quotRem :: CColumnIndex -> CColumnIndex -> (CColumnIndex, CColumnIndex)
$cdivMod :: CColumnIndex -> CColumnIndex -> (CColumnIndex, CColumnIndex)
divMod :: CColumnIndex -> CColumnIndex -> (CColumnIndex, CColumnIndex)
$ctoInteger :: CColumnIndex -> Integer
toInteger :: CColumnIndex -> Integer
Integral)
instance Show CColumnIndex where
show :: CColumnIndex -> String
show (CColumnIndex CInt
n) = CInt -> String
forall a. Show a => a -> String
show CInt
n
type CColumnCount = CColumnIndex
newtype CNumBytes = CNumBytes CInt
deriving (CNumBytes -> CNumBytes -> Bool
(CNumBytes -> CNumBytes -> Bool)
-> (CNumBytes -> CNumBytes -> Bool) -> Eq CNumBytes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CNumBytes -> CNumBytes -> Bool
== :: CNumBytes -> CNumBytes -> Bool
$c/= :: CNumBytes -> CNumBytes -> Bool
/= :: CNumBytes -> CNumBytes -> Bool
Eq, Eq CNumBytes
Eq CNumBytes =>
(CNumBytes -> CNumBytes -> Ordering)
-> (CNumBytes -> CNumBytes -> Bool)
-> (CNumBytes -> CNumBytes -> Bool)
-> (CNumBytes -> CNumBytes -> Bool)
-> (CNumBytes -> CNumBytes -> Bool)
-> (CNumBytes -> CNumBytes -> CNumBytes)
-> (CNumBytes -> CNumBytes -> CNumBytes)
-> Ord CNumBytes
CNumBytes -> CNumBytes -> Bool
CNumBytes -> CNumBytes -> Ordering
CNumBytes -> CNumBytes -> CNumBytes
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CNumBytes -> CNumBytes -> Ordering
compare :: CNumBytes -> CNumBytes -> Ordering
$c< :: CNumBytes -> CNumBytes -> Bool
< :: CNumBytes -> CNumBytes -> Bool
$c<= :: CNumBytes -> CNumBytes -> Bool
<= :: CNumBytes -> CNumBytes -> Bool
$c> :: CNumBytes -> CNumBytes -> Bool
> :: CNumBytes -> CNumBytes -> Bool
$c>= :: CNumBytes -> CNumBytes -> Bool
>= :: CNumBytes -> CNumBytes -> Bool
$cmax :: CNumBytes -> CNumBytes -> CNumBytes
max :: CNumBytes -> CNumBytes -> CNumBytes
$cmin :: CNumBytes -> CNumBytes -> CNumBytes
min :: CNumBytes -> CNumBytes -> CNumBytes
Ord, Int -> CNumBytes -> ShowS
[CNumBytes] -> ShowS
CNumBytes -> String
(Int -> CNumBytes -> ShowS)
-> (CNumBytes -> String)
-> ([CNumBytes] -> ShowS)
-> Show CNumBytes
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CNumBytes -> ShowS
showsPrec :: Int -> CNumBytes -> ShowS
$cshow :: CNumBytes -> String
show :: CNumBytes -> String
$cshowList :: [CNumBytes] -> ShowS
showList :: [CNumBytes] -> ShowS
Show, Int -> CNumBytes
CNumBytes -> Int
CNumBytes -> [CNumBytes]
CNumBytes -> CNumBytes
CNumBytes -> CNumBytes -> [CNumBytes]
CNumBytes -> CNumBytes -> CNumBytes -> [CNumBytes]
(CNumBytes -> CNumBytes)
-> (CNumBytes -> CNumBytes)
-> (Int -> CNumBytes)
-> (CNumBytes -> Int)
-> (CNumBytes -> [CNumBytes])
-> (CNumBytes -> CNumBytes -> [CNumBytes])
-> (CNumBytes -> CNumBytes -> [CNumBytes])
-> (CNumBytes -> CNumBytes -> CNumBytes -> [CNumBytes])
-> Enum CNumBytes
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: CNumBytes -> CNumBytes
succ :: CNumBytes -> CNumBytes
$cpred :: CNumBytes -> CNumBytes
pred :: CNumBytes -> CNumBytes
$ctoEnum :: Int -> CNumBytes
toEnum :: Int -> CNumBytes
$cfromEnum :: CNumBytes -> Int
fromEnum :: CNumBytes -> Int
$cenumFrom :: CNumBytes -> [CNumBytes]
enumFrom :: CNumBytes -> [CNumBytes]
$cenumFromThen :: CNumBytes -> CNumBytes -> [CNumBytes]
enumFromThen :: CNumBytes -> CNumBytes -> [CNumBytes]
$cenumFromTo :: CNumBytes -> CNumBytes -> [CNumBytes]
enumFromTo :: CNumBytes -> CNumBytes -> [CNumBytes]
$cenumFromThenTo :: CNumBytes -> CNumBytes -> CNumBytes -> [CNumBytes]
enumFromThenTo :: CNumBytes -> CNumBytes -> CNumBytes -> [CNumBytes]
Enum, Integer -> CNumBytes
CNumBytes -> CNumBytes
CNumBytes -> CNumBytes -> CNumBytes
(CNumBytes -> CNumBytes -> CNumBytes)
-> (CNumBytes -> CNumBytes -> CNumBytes)
-> (CNumBytes -> CNumBytes -> CNumBytes)
-> (CNumBytes -> CNumBytes)
-> (CNumBytes -> CNumBytes)
-> (CNumBytes -> CNumBytes)
-> (Integer -> CNumBytes)
-> Num CNumBytes
forall a.
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> a)
-> (a -> a)
-> (Integer -> a)
-> Num a
$c+ :: CNumBytes -> CNumBytes -> CNumBytes
+ :: CNumBytes -> CNumBytes -> CNumBytes
$c- :: CNumBytes -> CNumBytes -> CNumBytes
- :: CNumBytes -> CNumBytes -> CNumBytes
$c* :: CNumBytes -> CNumBytes -> CNumBytes
* :: CNumBytes -> CNumBytes -> CNumBytes
$cnegate :: CNumBytes -> CNumBytes
negate :: CNumBytes -> CNumBytes
$cabs :: CNumBytes -> CNumBytes
abs :: CNumBytes -> CNumBytes
$csignum :: CNumBytes -> CNumBytes
signum :: CNumBytes -> CNumBytes
$cfromInteger :: Integer -> CNumBytes
fromInteger :: Integer -> CNumBytes
Num, Num CNumBytes
Ord CNumBytes
(Num CNumBytes, Ord CNumBytes) =>
(CNumBytes -> Rational) -> Real CNumBytes
CNumBytes -> Rational
forall a. (Num a, Ord a) => (a -> Rational) -> Real a
$ctoRational :: CNumBytes -> Rational
toRational :: CNumBytes -> Rational
Real, Enum CNumBytes
Real CNumBytes
(Real CNumBytes, Enum CNumBytes) =>
(CNumBytes -> CNumBytes -> CNumBytes)
-> (CNumBytes -> CNumBytes -> CNumBytes)
-> (CNumBytes -> CNumBytes -> CNumBytes)
-> (CNumBytes -> CNumBytes -> CNumBytes)
-> (CNumBytes -> CNumBytes -> (CNumBytes, CNumBytes))
-> (CNumBytes -> CNumBytes -> (CNumBytes, CNumBytes))
-> (CNumBytes -> Integer)
-> Integral CNumBytes
CNumBytes -> Integer
CNumBytes -> CNumBytes -> (CNumBytes, CNumBytes)
CNumBytes -> CNumBytes -> CNumBytes
forall a.
(Real a, Enum a) =>
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> (a, a))
-> (a -> a -> (a, a))
-> (a -> Integer)
-> Integral a
$cquot :: CNumBytes -> CNumBytes -> CNumBytes
quot :: CNumBytes -> CNumBytes -> CNumBytes
$crem :: CNumBytes -> CNumBytes -> CNumBytes
rem :: CNumBytes -> CNumBytes -> CNumBytes
$cdiv :: CNumBytes -> CNumBytes -> CNumBytes
div :: CNumBytes -> CNumBytes -> CNumBytes
$cmod :: CNumBytes -> CNumBytes -> CNumBytes
mod :: CNumBytes -> CNumBytes -> CNumBytes
$cquotRem :: CNumBytes -> CNumBytes -> (CNumBytes, CNumBytes)
quotRem :: CNumBytes -> CNumBytes -> (CNumBytes, CNumBytes)
$cdivMod :: CNumBytes -> CNumBytes -> (CNumBytes, CNumBytes)
divMod :: CNumBytes -> CNumBytes -> (CNumBytes, CNumBytes)
$ctoInteger :: CNumBytes -> Integer
toInteger :: CNumBytes -> Integer
Integral)
data CDestructor
c_SQLITE_STATIC :: Ptr CDestructor
c_SQLITE_STATIC :: Ptr CDestructor
c_SQLITE_STATIC = IntPtr -> Ptr CDestructor
forall a. IntPtr -> Ptr a
intPtrToPtr IntPtr
0
c_SQLITE_TRANSIENT :: Ptr CDestructor
c_SQLITE_TRANSIENT :: Ptr CDestructor
c_SQLITE_TRANSIENT = IntPtr -> Ptr CDestructor
forall a. IntPtr -> Ptr a
intPtrToPtr (-IntPtr
1)
c_SQLITE_UTF8 :: CInt
c_SQLITE_UTF8 :: CInt
c_SQLITE_UTF8 = CInt
1
{-# LINE 296 "Database/SQLite3/Bindings/Types.hsc" #-}
newtype ArgCount = ArgCount Int
deriving (ArgCount -> ArgCount -> Bool
(ArgCount -> ArgCount -> Bool)
-> (ArgCount -> ArgCount -> Bool) -> Eq ArgCount
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ArgCount -> ArgCount -> Bool
== :: ArgCount -> ArgCount -> Bool
$c/= :: ArgCount -> ArgCount -> Bool
/= :: ArgCount -> ArgCount -> Bool
Eq, Eq ArgCount
Eq ArgCount =>
(ArgCount -> ArgCount -> Ordering)
-> (ArgCount -> ArgCount -> Bool)
-> (ArgCount -> ArgCount -> Bool)
-> (ArgCount -> ArgCount -> Bool)
-> (ArgCount -> ArgCount -> Bool)
-> (ArgCount -> ArgCount -> ArgCount)
-> (ArgCount -> ArgCount -> ArgCount)
-> Ord ArgCount
ArgCount -> ArgCount -> Bool
ArgCount -> ArgCount -> Ordering
ArgCount -> ArgCount -> ArgCount
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ArgCount -> ArgCount -> Ordering
compare :: ArgCount -> ArgCount -> Ordering
$c< :: ArgCount -> ArgCount -> Bool
< :: ArgCount -> ArgCount -> Bool
$c<= :: ArgCount -> ArgCount -> Bool
<= :: ArgCount -> ArgCount -> Bool
$c> :: ArgCount -> ArgCount -> Bool
> :: ArgCount -> ArgCount -> Bool
$c>= :: ArgCount -> ArgCount -> Bool
>= :: ArgCount -> ArgCount -> Bool
$cmax :: ArgCount -> ArgCount -> ArgCount
max :: ArgCount -> ArgCount -> ArgCount
$cmin :: ArgCount -> ArgCount -> ArgCount
min :: ArgCount -> ArgCount -> ArgCount
Ord, Int -> ArgCount
ArgCount -> Int
ArgCount -> [ArgCount]
ArgCount -> ArgCount
ArgCount -> ArgCount -> [ArgCount]
ArgCount -> ArgCount -> ArgCount -> [ArgCount]
(ArgCount -> ArgCount)
-> (ArgCount -> ArgCount)
-> (Int -> ArgCount)
-> (ArgCount -> Int)
-> (ArgCount -> [ArgCount])
-> (ArgCount -> ArgCount -> [ArgCount])
-> (ArgCount -> ArgCount -> [ArgCount])
-> (ArgCount -> ArgCount -> ArgCount -> [ArgCount])
-> Enum ArgCount
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: ArgCount -> ArgCount
succ :: ArgCount -> ArgCount
$cpred :: ArgCount -> ArgCount
pred :: ArgCount -> ArgCount
$ctoEnum :: Int -> ArgCount
toEnum :: Int -> ArgCount
$cfromEnum :: ArgCount -> Int
fromEnum :: ArgCount -> Int
$cenumFrom :: ArgCount -> [ArgCount]
enumFrom :: ArgCount -> [ArgCount]
$cenumFromThen :: ArgCount -> ArgCount -> [ArgCount]
enumFromThen :: ArgCount -> ArgCount -> [ArgCount]
$cenumFromTo :: ArgCount -> ArgCount -> [ArgCount]
enumFromTo :: ArgCount -> ArgCount -> [ArgCount]
$cenumFromThenTo :: ArgCount -> ArgCount -> ArgCount -> [ArgCount]
enumFromThenTo :: ArgCount -> ArgCount -> ArgCount -> [ArgCount]
Enum, Integer -> ArgCount
ArgCount -> ArgCount
ArgCount -> ArgCount -> ArgCount
(ArgCount -> ArgCount -> ArgCount)
-> (ArgCount -> ArgCount -> ArgCount)
-> (ArgCount -> ArgCount -> ArgCount)
-> (ArgCount -> ArgCount)
-> (ArgCount -> ArgCount)
-> (ArgCount -> ArgCount)
-> (Integer -> ArgCount)
-> Num ArgCount
forall a.
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> a)
-> (a -> a)
-> (Integer -> a)
-> Num a
$c+ :: ArgCount -> ArgCount -> ArgCount
+ :: ArgCount -> ArgCount -> ArgCount
$c- :: ArgCount -> ArgCount -> ArgCount
- :: ArgCount -> ArgCount -> ArgCount
$c* :: ArgCount -> ArgCount -> ArgCount
* :: ArgCount -> ArgCount -> ArgCount
$cnegate :: ArgCount -> ArgCount
negate :: ArgCount -> ArgCount
$cabs :: ArgCount -> ArgCount
abs :: ArgCount -> ArgCount
$csignum :: ArgCount -> ArgCount
signum :: ArgCount -> ArgCount
$cfromInteger :: Integer -> ArgCount
fromInteger :: Integer -> ArgCount
Num, Num ArgCount
Ord ArgCount
(Num ArgCount, Ord ArgCount) =>
(ArgCount -> Rational) -> Real ArgCount
ArgCount -> Rational
forall a. (Num a, Ord a) => (a -> Rational) -> Real a
$ctoRational :: ArgCount -> Rational
toRational :: ArgCount -> Rational
Real, Enum ArgCount
Real ArgCount
(Real ArgCount, Enum ArgCount) =>
(ArgCount -> ArgCount -> ArgCount)
-> (ArgCount -> ArgCount -> ArgCount)
-> (ArgCount -> ArgCount -> ArgCount)
-> (ArgCount -> ArgCount -> ArgCount)
-> (ArgCount -> ArgCount -> (ArgCount, ArgCount))
-> (ArgCount -> ArgCount -> (ArgCount, ArgCount))
-> (ArgCount -> Integer)
-> Integral ArgCount
ArgCount -> Integer
ArgCount -> ArgCount -> (ArgCount, ArgCount)
ArgCount -> ArgCount -> ArgCount
forall a.
(Real a, Enum a) =>
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> (a, a))
-> (a -> a -> (a, a))
-> (a -> Integer)
-> Integral a
$cquot :: ArgCount -> ArgCount -> ArgCount
quot :: ArgCount -> ArgCount -> ArgCount
$crem :: ArgCount -> ArgCount -> ArgCount
rem :: ArgCount -> ArgCount -> ArgCount
$cdiv :: ArgCount -> ArgCount -> ArgCount
div :: ArgCount -> ArgCount -> ArgCount
$cmod :: ArgCount -> ArgCount -> ArgCount
mod :: ArgCount -> ArgCount -> ArgCount
$cquotRem :: ArgCount -> ArgCount -> (ArgCount, ArgCount)
quotRem :: ArgCount -> ArgCount -> (ArgCount, ArgCount)
$cdivMod :: ArgCount -> ArgCount -> (ArgCount, ArgCount)
divMod :: ArgCount -> ArgCount -> (ArgCount, ArgCount)
$ctoInteger :: ArgCount -> Integer
toInteger :: ArgCount -> Integer
Integral)
instance Show ArgCount where
show :: ArgCount -> String
show (ArgCount Int
n) = Int -> String
forall a. Show a => a -> String
show Int
n
instance Bounded ArgCount where
minBound :: ArgCount
minBound = Int -> ArgCount
ArgCount Int
0
maxBound :: ArgCount
maxBound = Int -> ArgCount
ArgCount (Int
6)
{-# LINE 308 "Database/SQLite3/Bindings/Types.hsc" #-}
type ArgIndex = ArgCount
newtype CArgCount = CArgCount CInt
deriving (CArgCount -> CArgCount -> Bool
(CArgCount -> CArgCount -> Bool)
-> (CArgCount -> CArgCount -> Bool) -> Eq CArgCount
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CArgCount -> CArgCount -> Bool
== :: CArgCount -> CArgCount -> Bool
$c/= :: CArgCount -> CArgCount -> Bool
/= :: CArgCount -> CArgCount -> Bool
Eq, Eq CArgCount
Eq CArgCount =>
(CArgCount -> CArgCount -> Ordering)
-> (CArgCount -> CArgCount -> Bool)
-> (CArgCount -> CArgCount -> Bool)
-> (CArgCount -> CArgCount -> Bool)
-> (CArgCount -> CArgCount -> Bool)
-> (CArgCount -> CArgCount -> CArgCount)
-> (CArgCount -> CArgCount -> CArgCount)
-> Ord CArgCount
CArgCount -> CArgCount -> Bool
CArgCount -> CArgCount -> Ordering
CArgCount -> CArgCount -> CArgCount
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CArgCount -> CArgCount -> Ordering
compare :: CArgCount -> CArgCount -> Ordering
$c< :: CArgCount -> CArgCount -> Bool
< :: CArgCount -> CArgCount -> Bool
$c<= :: CArgCount -> CArgCount -> Bool
<= :: CArgCount -> CArgCount -> Bool
$c> :: CArgCount -> CArgCount -> Bool
> :: CArgCount -> CArgCount -> Bool
$c>= :: CArgCount -> CArgCount -> Bool
>= :: CArgCount -> CArgCount -> Bool
$cmax :: CArgCount -> CArgCount -> CArgCount
max :: CArgCount -> CArgCount -> CArgCount
$cmin :: CArgCount -> CArgCount -> CArgCount
min :: CArgCount -> CArgCount -> CArgCount
Ord, Int -> CArgCount
CArgCount -> Int
CArgCount -> [CArgCount]
CArgCount -> CArgCount
CArgCount -> CArgCount -> [CArgCount]
CArgCount -> CArgCount -> CArgCount -> [CArgCount]
(CArgCount -> CArgCount)
-> (CArgCount -> CArgCount)
-> (Int -> CArgCount)
-> (CArgCount -> Int)
-> (CArgCount -> [CArgCount])
-> (CArgCount -> CArgCount -> [CArgCount])
-> (CArgCount -> CArgCount -> [CArgCount])
-> (CArgCount -> CArgCount -> CArgCount -> [CArgCount])
-> Enum CArgCount
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
$csucc :: CArgCount -> CArgCount
succ :: CArgCount -> CArgCount
$cpred :: CArgCount -> CArgCount
pred :: CArgCount -> CArgCount
$ctoEnum :: Int -> CArgCount
toEnum :: Int -> CArgCount
$cfromEnum :: CArgCount -> Int
fromEnum :: CArgCount -> Int
$cenumFrom :: CArgCount -> [CArgCount]
enumFrom :: CArgCount -> [CArgCount]
$cenumFromThen :: CArgCount -> CArgCount -> [CArgCount]
enumFromThen :: CArgCount -> CArgCount -> [CArgCount]
$cenumFromTo :: CArgCount -> CArgCount -> [CArgCount]
enumFromTo :: CArgCount -> CArgCount -> [CArgCount]
$cenumFromThenTo :: CArgCount -> CArgCount -> CArgCount -> [CArgCount]
enumFromThenTo :: CArgCount -> CArgCount -> CArgCount -> [CArgCount]
Enum, Integer -> CArgCount
CArgCount -> CArgCount
CArgCount -> CArgCount -> CArgCount
(CArgCount -> CArgCount -> CArgCount)
-> (CArgCount -> CArgCount -> CArgCount)
-> (CArgCount -> CArgCount -> CArgCount)
-> (CArgCount -> CArgCount)
-> (CArgCount -> CArgCount)
-> (CArgCount -> CArgCount)
-> (Integer -> CArgCount)
-> Num CArgCount
forall a.
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> a)
-> (a -> a)
-> (Integer -> a)
-> Num a
$c+ :: CArgCount -> CArgCount -> CArgCount
+ :: CArgCount -> CArgCount -> CArgCount
$c- :: CArgCount -> CArgCount -> CArgCount
- :: CArgCount -> CArgCount -> CArgCount
$c* :: CArgCount -> CArgCount -> CArgCount
* :: CArgCount -> CArgCount -> CArgCount
$cnegate :: CArgCount -> CArgCount
negate :: CArgCount -> CArgCount
$cabs :: CArgCount -> CArgCount
abs :: CArgCount -> CArgCount
$csignum :: CArgCount -> CArgCount
signum :: CArgCount -> CArgCount
$cfromInteger :: Integer -> CArgCount
fromInteger :: Integer -> CArgCount
Num, Num CArgCount
Ord CArgCount
(Num CArgCount, Ord CArgCount) =>
(CArgCount -> Rational) -> Real CArgCount
CArgCount -> Rational
forall a. (Num a, Ord a) => (a -> Rational) -> Real a
$ctoRational :: CArgCount -> Rational
toRational :: CArgCount -> Rational
Real, Enum CArgCount
Real CArgCount
(Real CArgCount, Enum CArgCount) =>
(CArgCount -> CArgCount -> CArgCount)
-> (CArgCount -> CArgCount -> CArgCount)
-> (CArgCount -> CArgCount -> CArgCount)
-> (CArgCount -> CArgCount -> CArgCount)
-> (CArgCount -> CArgCount -> (CArgCount, CArgCount))
-> (CArgCount -> CArgCount -> (CArgCount, CArgCount))
-> (CArgCount -> Integer)
-> Integral CArgCount
CArgCount -> Integer
CArgCount -> CArgCount -> (CArgCount, CArgCount)
CArgCount -> CArgCount -> CArgCount
forall a.
(Real a, Enum a) =>
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> (a, a))
-> (a -> a -> (a, a))
-> (a -> Integer)
-> Integral a
$cquot :: CArgCount -> CArgCount -> CArgCount
quot :: CArgCount -> CArgCount -> CArgCount
$crem :: CArgCount -> CArgCount -> CArgCount
rem :: CArgCount -> CArgCount -> CArgCount
$cdiv :: CArgCount -> CArgCount -> CArgCount
div :: CArgCount -> CArgCount -> CArgCount
$cmod :: CArgCount -> CArgCount -> CArgCount
mod :: CArgCount -> CArgCount -> CArgCount
$cquotRem :: CArgCount -> CArgCount -> (CArgCount, CArgCount)
quotRem :: CArgCount -> CArgCount -> (CArgCount, CArgCount)
$cdivMod :: CArgCount -> CArgCount -> (CArgCount, CArgCount)
divMod :: CArgCount -> CArgCount -> (CArgCount, CArgCount)
$ctoInteger :: CArgCount -> Integer
toInteger :: CArgCount -> Integer
Integral)
instance Show CArgCount where
show :: CArgCount -> String
show (CArgCount CInt
n) = CInt -> String
forall a. Show a => a -> String
show CInt
n
instance Bounded CArgCount where
minBound :: CArgCount
minBound = CInt -> CArgCount
CArgCount (-CInt
1)
maxBound :: CArgCount
maxBound = CInt -> CArgCount
CArgCount CInt
6
{-# LINE 322 "Database/SQLite3/Bindings/Types.hsc" #-}
c_SQLITE_DETERMINISTIC :: CInt
c_SQLITE_DETERMINISTIC :: CInt
c_SQLITE_DETERMINISTIC = CInt
2048
{-# LINE 326 "Database/SQLite3/Bindings/Types.hsc" #-}
newtype CError = CError CInt
deriving (CError -> CError -> Bool
(CError -> CError -> Bool)
-> (CError -> CError -> Bool) -> Eq CError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CError -> CError -> Bool
== :: CError -> CError -> Bool
$c/= :: CError -> CError -> Bool
/= :: CError -> CError -> Bool
Eq, Int -> CError -> ShowS
[CError] -> ShowS
CError -> String
(Int -> CError -> ShowS)
-> (CError -> String) -> ([CError] -> ShowS) -> Show CError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CError -> ShowS
showsPrec :: Int -> CError -> ShowS
$cshow :: CError -> String
show :: CError -> String
$cshowList :: [CError] -> ShowS
showList :: [CError] -> ShowS
Show)
decodeError :: CError -> Error
decodeError :: CError -> Error
decodeError (CError CInt
n) = case CInt
n of
CInt
0 -> Error
ErrorOK
{-# LINE 344 "Database/SQLite3/Bindings/Types.hsc" #-}
1 -> ErrorError
{-# LINE 345 "Database/SQLite3/Bindings/Types.hsc" #-}
2 -> ErrorInternal
{-# LINE 346 "Database/SQLite3/Bindings/Types.hsc" #-}
3 -> ErrorPermission
{-# LINE 347 "Database/SQLite3/Bindings/Types.hsc" #-}
4 -> ErrorAbort
{-# LINE 348 "Database/SQLite3/Bindings/Types.hsc" #-}
5 -> ErrorBusy
{-# LINE 349 "Database/SQLite3/Bindings/Types.hsc" #-}
6 -> ErrorLocked
{-# LINE 350 "Database/SQLite3/Bindings/Types.hsc" #-}
7 -> ErrorNoMemory
{-# LINE 351 "Database/SQLite3/Bindings/Types.hsc" #-}
8 -> ErrorReadOnly
{-# LINE 352 "Database/SQLite3/Bindings/Types.hsc" #-}
9 -> ErrorInterrupt
{-# LINE 353 "Database/SQLite3/Bindings/Types.hsc" #-}
10 -> ErrorIO
{-# LINE 354 "Database/SQLite3/Bindings/Types.hsc" #-}
11 -> ErrorCorrupt
{-# LINE 355 "Database/SQLite3/Bindings/Types.hsc" #-}
12 -> ErrorNotFound
{-# LINE 356 "Database/SQLite3/Bindings/Types.hsc" #-}
13 -> ErrorFull
{-# LINE 357 "Database/SQLite3/Bindings/Types.hsc" #-}
14 -> ErrorCan'tOpen
{-# LINE 358 "Database/SQLite3/Bindings/Types.hsc" #-}
15 -> ErrorProtocol
{-# LINE 359 "Database/SQLite3/Bindings/Types.hsc" #-}
16 -> ErrorEmpty
{-# LINE 360 "Database/SQLite3/Bindings/Types.hsc" #-}
17 -> ErrorSchema
{-# LINE 361 "Database/SQLite3/Bindings/Types.hsc" #-}
18 -> ErrorTooBig
{-# LINE 362 "Database/SQLite3/Bindings/Types.hsc" #-}
19 -> ErrorConstraint
{-# LINE 363 "Database/SQLite3/Bindings/Types.hsc" #-}
20 -> ErrorMismatch
{-# LINE 364 "Database/SQLite3/Bindings/Types.hsc" #-}
21 -> ErrorMisuse
{-# LINE 365 "Database/SQLite3/Bindings/Types.hsc" #-}
22 -> ErrorNoLargeFileSupport
{-# LINE 366 "Database/SQLite3/Bindings/Types.hsc" #-}
23 -> ErrorAuthorization
{-# LINE 367 "Database/SQLite3/Bindings/Types.hsc" #-}
24 -> ErrorFormat
{-# LINE 368 "Database/SQLite3/Bindings/Types.hsc" #-}
25 -> ErrorRange
{-# LINE 369 "Database/SQLite3/Bindings/Types.hsc" #-}
26 -> ErrorNotADatabase
{-# LINE 370 "Database/SQLite3/Bindings/Types.hsc" #-}
27 -> ErrorNotice
{-# LINE 371 "Database/SQLite3/Bindings/Types.hsc" #-}
28 -> ErrorWarning
{-# LINE 372 "Database/SQLite3/Bindings/Types.hsc" #-}
100 -> ErrorRow
{-# LINE 373 "Database/SQLite3/Bindings/Types.hsc" #-}
101 -> ErrorDone
{-# LINE 374 "Database/SQLite3/Bindings/Types.hsc" #-}
CInt
257 -> Error
ErrorErrorMissingCollatingSquence
{-# LINE 376 "Database/SQLite3/Bindings/Types.hsc" #-}
513 -> ErrorErrorRetry
{-# LINE 377 "Database/SQLite3/Bindings/Types.hsc" #-}
769 -> ErrorErrorSnapshot
{-# LINE 378 "Database/SQLite3/Bindings/Types.hsc" #-}
266 -> ErrorIORead
{-# LINE 379 "Database/SQLite3/Bindings/Types.hsc" #-}
522 -> ErrorIOShortRead
{-# LINE 380 "Database/SQLite3/Bindings/Types.hsc" #-}
778 -> ErrorIOWrite
{-# LINE 381 "Database/SQLite3/Bindings/Types.hsc" #-}
1034 -> ErrorIOFsync
{-# LINE 382 "Database/SQLite3/Bindings/Types.hsc" #-}
1290 -> ErrorIODirectoryFsync
{-# LINE 383 "Database/SQLite3/Bindings/Types.hsc" #-}
1546 -> ErrorIOTruncate
{-# LINE 384 "Database/SQLite3/Bindings/Types.hsc" #-}
1802 -> ErrorIOFstat
{-# LINE 385 "Database/SQLite3/Bindings/Types.hsc" #-}
2058 -> ErrorIOUnlock
{-# LINE 386 "Database/SQLite3/Bindings/Types.hsc" #-}
2314 -> ErrorIOReadLock
{-# LINE 387 "Database/SQLite3/Bindings/Types.hsc" #-}
2570 -> ErrorIODelete
{-# LINE 388 "Database/SQLite3/Bindings/Types.hsc" #-}
2826 -> ErrorIOBlocked
{-# LINE 389 "Database/SQLite3/Bindings/Types.hsc" #-}
3082 -> ErrorIONoMemory
{-# LINE 390 "Database/SQLite3/Bindings/Types.hsc" #-}
3338 -> ErrorIOAccess
{-# LINE 391 "Database/SQLite3/Bindings/Types.hsc" #-}
3594 -> ErrorIOCheckReservedLock
{-# LINE 392 "Database/SQLite3/Bindings/Types.hsc" #-}
3850 -> ErrorIOLock
{-# LINE 393 "Database/SQLite3/Bindings/Types.hsc" #-}
4106 -> ErrorIOClose
{-# LINE 394 "Database/SQLite3/Bindings/Types.hsc" #-}
4362 -> ErrorIODirectoryClose
{-# LINE 395 "Database/SQLite3/Bindings/Types.hsc" #-}
4618 -> ErrorIOShmOpen
{-# LINE 396 "Database/SQLite3/Bindings/Types.hsc" #-}
4874 -> ErrorIOShmSize
{-# LINE 397 "Database/SQLite3/Bindings/Types.hsc" #-}
5130 -> ErrorIOShmLock
{-# LINE 398 "Database/SQLite3/Bindings/Types.hsc" #-}
5386 -> ErrorIOShmMap
{-# LINE 399 "Database/SQLite3/Bindings/Types.hsc" #-}
5642 -> ErrorIOSeek
{-# LINE 400 "Database/SQLite3/Bindings/Types.hsc" #-}
5898 -> ErrorIODeleteNoEntity
{-# LINE 401 "Database/SQLite3/Bindings/Types.hsc" #-}
6154 -> ErrorIOMmap
{-# LINE 402 "Database/SQLite3/Bindings/Types.hsc" #-}
6410 -> ErrorIOGetTempPath
{-# LINE 403 "Database/SQLite3/Bindings/Types.hsc" #-}
6666 -> ErrorIOConvertedPath
{-# LINE 404 "Database/SQLite3/Bindings/Types.hsc" #-}
6922 -> ErrorIOVNode
{-# LINE 405 "Database/SQLite3/Bindings/Types.hsc" #-}
7178 -> ErrorIOAuth
{-# LINE 406 "Database/SQLite3/Bindings/Types.hsc" #-}
7434 -> ErrorIOBeginAtomic
{-# LINE 407 "Database/SQLite3/Bindings/Types.hsc" #-}
7690 -> ErrorIOCommitAtomic
{-# LINE 408 "Database/SQLite3/Bindings/Types.hsc" #-}
7946 -> ErrorIORollbackAtomic
{-# LINE 409 "Database/SQLite3/Bindings/Types.hsc" #-}
8202 -> ErrorIOData
{-# LINE 410 "Database/SQLite3/Bindings/Types.hsc" #-}
8458 -> ErrorIOCorruptFilesystem
{-# LINE 411 "Database/SQLite3/Bindings/Types.hsc" #-}
262 -> ErrorLockedSharedCache
{-# LINE 412 "Database/SQLite3/Bindings/Types.hsc" #-}
518 -> ErrorLockedVirtualTable
{-# LINE 413 "Database/SQLite3/Bindings/Types.hsc" #-}
261 -> ErrorBusyRecovery
{-# LINE 414 "Database/SQLite3/Bindings/Types.hsc" #-}
517 -> ErrorBusySnapshot
{-# LINE 415 "Database/SQLite3/Bindings/Types.hsc" #-}
773 -> ErrorBusyTimeout
{-# LINE 416 "Database/SQLite3/Bindings/Types.hsc" #-}
270 -> ErrorCan'tOpenNotTempDirectory
{-# LINE 417 "Database/SQLite3/Bindings/Types.hsc" #-}
526 -> ErrorCan'tOpenIsDirectory
{-# LINE 418 "Database/SQLite3/Bindings/Types.hsc" #-}
782 -> ErrorCan'tOpenFullPath
{-# LINE 419 "Database/SQLite3/Bindings/Types.hsc" #-}
1038 -> ErrorCan'tOpenConvertedPath
{-# LINE 420 "Database/SQLite3/Bindings/Types.hsc" #-}
1294 -> ErrorCan'tOpenDirtyWriteAheadLog
{-# LINE 421 "Database/SQLite3/Bindings/Types.hsc" #-}
1550 -> ErrorCan'tOpenSymlink
{-# LINE 422 "Database/SQLite3/Bindings/Types.hsc" #-}
267 -> ErrorCorruptVirtualTable
{-# LINE 423 "Database/SQLite3/Bindings/Types.hsc" #-}
523 -> ErrorCorruptSequence
{-# LINE 424 "Database/SQLite3/Bindings/Types.hsc" #-}
779 -> ErrorCorruptIndex
{-# LINE 425 "Database/SQLite3/Bindings/Types.hsc" #-}
264 -> ErrorReadOnlyRecovery
{-# LINE 426 "Database/SQLite3/Bindings/Types.hsc" #-}
520 -> ErrorReadOnlyCan'tLock
{-# LINE 427 "Database/SQLite3/Bindings/Types.hsc" #-}
776 -> ErrorReadOnlyRollback
{-# LINE 428 "Database/SQLite3/Bindings/Types.hsc" #-}
1032 -> ErrorReadOnlyDatabaseMoved
{-# LINE 429 "Database/SQLite3/Bindings/Types.hsc" #-}
1288 -> ErrorReadOnlyCan'tInit
{-# LINE 430 "Database/SQLite3/Bindings/Types.hsc" #-}
1544 -> ErrorReadOnlyDirectory
{-# LINE 431 "Database/SQLite3/Bindings/Types.hsc" #-}
516 -> ErrorAbortRollback
{-# LINE 432 "Database/SQLite3/Bindings/Types.hsc" #-}
275 -> ErrorConstraintCheck
{-# LINE 433 "Database/SQLite3/Bindings/Types.hsc" #-}
531 -> ErrorConstraintCommitHook
{-# LINE 434 "Database/SQLite3/Bindings/Types.hsc" #-}
787 -> ErrorConstraintForeignKey
{-# LINE 435 "Database/SQLite3/Bindings/Types.hsc" #-}
1043 -> ErrorConstraintFunction
{-# LINE 436 "Database/SQLite3/Bindings/Types.hsc" #-}
1299 -> ErrorConstraintNotNull
{-# LINE 437 "Database/SQLite3/Bindings/Types.hsc" #-}
1555 -> ErrorConstraintPrimaryKey
{-# LINE 438 "Database/SQLite3/Bindings/Types.hsc" #-}
1811 -> ErrorConstraintTrigger
{-# LINE 439 "Database/SQLite3/Bindings/Types.hsc" #-}
2067 -> ErrorConstraintUnique
{-# LINE 440 "Database/SQLite3/Bindings/Types.hsc" #-}
2323 -> ErrorConstraintVirtualTable
{-# LINE 441 "Database/SQLite3/Bindings/Types.hsc" #-}
2579 -> ErrorConstraintRowId
{-# LINE 442 "Database/SQLite3/Bindings/Types.hsc" #-}
2835 -> ErrorConstraintPinned
{-# LINE 443 "Database/SQLite3/Bindings/Types.hsc" #-}
3091 -> ErrorConstraintDataType
{-# LINE 444 "Database/SQLite3/Bindings/Types.hsc" #-}
283 -> ErrorNoticeRecoverWriteAheadLog
{-# LINE 445 "Database/SQLite3/Bindings/Types.hsc" #-}
539 -> ErrorNoticeRecoverRollback
{-# LINE 446 "Database/SQLite3/Bindings/Types.hsc" #-}
284 -> ErrorWarningAutoIndex
{-# LINE 447 "Database/SQLite3/Bindings/Types.hsc" #-}
279 -> ErrorAuthUser
{-# LINE 448 "Database/SQLite3/Bindings/Types.hsc" #-}
256 -> ErrorOkLoadPermanently
{-# LINE 449 "Database/SQLite3/Bindings/Types.hsc" #-}
_ -> error $ "decodeError " ++ show n
encodeError :: Error -> CError
encodeError :: Error -> CError
encodeError Error
err = CInt -> CError
CError (CInt -> CError) -> CInt -> CError
forall a b. (a -> b) -> a -> b
$ case Error
err of
Error
ErrorOK -> CInt
0
{-# LINE 454 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorError -> 1
{-# LINE 455 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorInternal -> 2
{-# LINE 456 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorPermission -> 3
{-# LINE 457 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorAbort -> 4
{-# LINE 458 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorBusy -> 5
{-# LINE 459 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorLocked -> 6
{-# LINE 460 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorNoMemory -> 7
{-# LINE 461 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorReadOnly -> 8
{-# LINE 462 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorInterrupt -> 9
{-# LINE 463 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIO -> 10
{-# LINE 464 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorCorrupt -> 11
{-# LINE 465 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorNotFound -> 12
{-# LINE 466 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorFull -> 13
{-# LINE 467 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorCan'tOpen -> 14
{-# LINE 468 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorProtocol -> 15
{-# LINE 469 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorEmpty -> 16
{-# LINE 470 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorSchema -> 17
{-# LINE 471 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorTooBig -> 18
{-# LINE 472 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraint -> 19
{-# LINE 473 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorMismatch -> 20
{-# LINE 474 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorMisuse -> 21
{-# LINE 475 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorNoLargeFileSupport -> 22
{-# LINE 476 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorAuthorization -> 23
{-# LINE 477 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorFormat -> 24
{-# LINE 478 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorRange -> 25
{-# LINE 479 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorNotADatabase -> 26
{-# LINE 480 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorNotice -> 27
{-# LINE 481 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorWarning -> 28
{-# LINE 482 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorRow -> 100
{-# LINE 483 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorDone -> 101
{-# LINE 484 "Database/SQLite3/Bindings/Types.hsc" #-}
Error
ErrorErrorMissingCollatingSquence -> CInt
257
{-# LINE 486 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorErrorRetry -> 513
{-# LINE 487 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorErrorSnapshot -> 769
{-# LINE 488 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIORead -> 266
{-# LINE 489 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOShortRead -> 522
{-# LINE 490 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOWrite -> 778
{-# LINE 491 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOFsync -> 1034
{-# LINE 492 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIODirectoryFsync -> 1290
{-# LINE 493 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOTruncate -> 1546
{-# LINE 494 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOFstat -> 1802
{-# LINE 495 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOUnlock -> 2058
{-# LINE 496 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOReadLock -> 2314
{-# LINE 497 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOBlocked -> 2826
{-# LINE 498 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIODelete -> 2570
{-# LINE 499 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIONoMemory -> 3082
{-# LINE 500 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOAccess -> 3338
{-# LINE 501 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOCheckReservedLock -> 3594
{-# LINE 502 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOLock -> 3850
{-# LINE 503 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOClose -> 4106
{-# LINE 504 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIODirectoryClose -> 4362
{-# LINE 505 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOShmOpen -> 4618
{-# LINE 506 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOShmSize -> 4874
{-# LINE 507 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOShmLock -> 5130
{-# LINE 508 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOShmMap -> 5386
{-# LINE 509 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOSeek -> 5642
{-# LINE 510 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIODeleteNoEntity -> 5898
{-# LINE 511 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOMmap -> 6154
{-# LINE 512 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOGetTempPath -> 6410
{-# LINE 513 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOConvertedPath -> 6666
{-# LINE 514 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOVNode -> 6922
{-# LINE 515 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOAuth -> 7178
{-# LINE 516 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOBeginAtomic -> 7434
{-# LINE 517 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOCommitAtomic -> 7690
{-# LINE 518 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIORollbackAtomic -> 7946
{-# LINE 519 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOData -> 8202
{-# LINE 520 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorIOCorruptFilesystem -> 8458
{-# LINE 521 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorLockedSharedCache -> 262
{-# LINE 522 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorLockedVirtualTable -> 518
{-# LINE 523 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorBusyRecovery -> 261
{-# LINE 524 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorBusySnapshot -> 517
{-# LINE 525 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorBusyTimeout -> 773
{-# LINE 526 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorCan'tOpenNotTempDirectory -> 270
{-# LINE 527 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorCan'tOpenIsDirectory -> 526
{-# LINE 528 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorCan'tOpenFullPath -> 782
{-# LINE 529 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorCan'tOpenConvertedPath -> 1038
{-# LINE 530 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorCan'tOpenDirtyWriteAheadLog -> 1294
{-# LINE 531 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorCan'tOpenSymlink -> 1550
{-# LINE 532 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorCorruptVirtualTable -> 267
{-# LINE 533 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorCorruptSequence -> 523
{-# LINE 534 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorCorruptIndex -> 779
{-# LINE 535 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorReadOnlyRecovery -> 264
{-# LINE 536 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorReadOnlyCan'tLock -> 520
{-# LINE 537 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorReadOnlyRollback -> 776
{-# LINE 538 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorReadOnlyDatabaseMoved -> 1032
{-# LINE 539 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorReadOnlyCan'tInit -> 1288
{-# LINE 540 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorReadOnlyDirectory -> 1544
{-# LINE 541 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorAbortRollback -> 516
{-# LINE 542 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraintCheck -> 275
{-# LINE 543 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraintCommitHook -> 531
{-# LINE 544 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraintForeignKey -> 787
{-# LINE 545 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraintFunction -> 1043
{-# LINE 546 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraintNotNull -> 1299
{-# LINE 547 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraintPrimaryKey -> 1555
{-# LINE 548 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraintTrigger -> 1811
{-# LINE 549 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraintUnique -> 2067
{-# LINE 550 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraintVirtualTable -> 2323
{-# LINE 551 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraintRowId -> 2579
{-# LINE 552 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraintPinned -> 2835
{-# LINE 553 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorConstraintDataType -> 3091
{-# LINE 554 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorNoticeRecoverWriteAheadLog -> 283
{-# LINE 555 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorNoticeRecoverRollback -> 539
{-# LINE 556 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorWarningAutoIndex -> 284
{-# LINE 557 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorAuthUser -> 279
{-# LINE 558 "Database/SQLite3/Bindings/Types.hsc" #-}
ErrorOkLoadPermanently -> 256
{-# LINE 559 "Database/SQLite3/Bindings/Types.hsc" #-}
newtype CColumnType = CColumnType CInt
deriving (CColumnType -> CColumnType -> Bool
(CColumnType -> CColumnType -> Bool)
-> (CColumnType -> CColumnType -> Bool) -> Eq CColumnType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CColumnType -> CColumnType -> Bool
== :: CColumnType -> CColumnType -> Bool
$c/= :: CColumnType -> CColumnType -> Bool
/= :: CColumnType -> CColumnType -> Bool
Eq, Int -> CColumnType -> ShowS
[CColumnType] -> ShowS
CColumnType -> String
(Int -> CColumnType -> ShowS)
-> (CColumnType -> String)
-> ([CColumnType] -> ShowS)
-> Show CColumnType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CColumnType -> ShowS
showsPrec :: Int -> CColumnType -> ShowS
$cshow :: CColumnType -> String
show :: CColumnType -> String
$cshowList :: [CColumnType] -> ShowS
showList :: [CColumnType] -> ShowS
Show)
decodeColumnType :: CColumnType -> ColumnType
decodeColumnType :: CColumnType -> ColumnType
decodeColumnType (CColumnType CInt
n) = case CInt
n of
CInt
1 -> ColumnType
IntegerColumn
{-# LINE 569 "Database/SQLite3/Bindings/Types.hsc" #-}
2 -> FloatColumn
{-# LINE 570 "Database/SQLite3/Bindings/Types.hsc" #-}
3 -> TextColumn
{-# LINE 571 "Database/SQLite3/Bindings/Types.hsc" #-}
4 -> BlobColumn
{-# LINE 572 "Database/SQLite3/Bindings/Types.hsc" #-}
5 -> NullColumn
{-# LINE 573 "Database/SQLite3/Bindings/Types.hsc" #-}
_ -> error $ "decodeColumnType " ++ show n
encodeColumnType :: ColumnType -> CColumnType
encodeColumnType :: ColumnType -> CColumnType
encodeColumnType ColumnType
t = CInt -> CColumnType
CColumnType (CInt -> CColumnType) -> CInt -> CColumnType
forall a b. (a -> b) -> a -> b
$ case ColumnType
t of
ColumnType
IntegerColumn -> CInt
1
{-# LINE 578 "Database/SQLite3/Bindings/Types.hsc" #-}
FloatColumn -> 2
{-# LINE 579 "Database/SQLite3/Bindings/Types.hsc" #-}
TextColumn -> 3
{-# LINE 580 "Database/SQLite3/Bindings/Types.hsc" #-}
BlobColumn -> 4
{-# LINE 581 "Database/SQLite3/Bindings/Types.hsc" #-}
NullColumn -> 5
{-# LINE 582 "Database/SQLite3/Bindings/Types.hsc" #-}
class FFIType public ffi | public -> ffi, ffi -> public where
toFFI :: public -> ffi
fromFFI :: ffi -> public
instance FFIType ParamIndex CParamIndex where
toFFI :: ParamIndex -> CParamIndex
toFFI (ParamIndex Int
n) = CInt -> CParamIndex
CParamIndex (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
fromFFI :: CParamIndex -> ParamIndex
fromFFI (CParamIndex CInt
n) = Int -> ParamIndex
ParamIndex (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
n)
instance FFIType ColumnIndex CColumnIndex where
toFFI :: ColumnIndex -> CColumnIndex
toFFI (ColumnIndex Int
n) = CInt -> CColumnIndex
CColumnIndex (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
fromFFI :: CColumnIndex -> ColumnIndex
fromFFI (CColumnIndex CInt
n) = Int -> ColumnIndex
ColumnIndex (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
n)
instance FFIType Error CError where
toFFI :: Error -> CError
toFFI = Error -> CError
encodeError
fromFFI :: CError -> Error
fromFFI = CError -> Error
decodeError
instance FFIType ColumnType CColumnType where
toFFI :: ColumnType -> CColumnType
toFFI = ColumnType -> CColumnType
encodeColumnType
fromFFI :: CColumnType -> ColumnType
fromFFI = CColumnType -> ColumnType
decodeColumnType
instance FFIType ArgCount CArgCount where
toFFI :: ArgCount -> CArgCount
toFFI (ArgCount Int
n) = CInt -> CArgCount
CArgCount (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n)
fromFFI :: CArgCount -> ArgCount
fromFFI (CArgCount CInt
n) = Int -> ArgCount
ArgCount (CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral CInt
n)