{-# LINE 1 "src/Database/SednaDB/Internal/SednaConnectionAttributes.hsc" #-}
module Database.SednaDB.Internal.SednaConnectionAttributes where
{-# LINE 2 "src/Database/SednaDB/Internal/SednaConnectionAttributes.hsc" #-}

import Foreign.C.Types


{-# LINE 6 "src/Database/SednaDB/Internal/SednaConnectionAttributes.hsc" #-}

{-# LINE 7 "src/Database/SednaDB/Internal/SednaConnectionAttributes.hsc" #-}

newtype SednaConnectionAttr = SednaConnectionAttr { sednaConnectionAttr :: CInt } deriving(Eq, Ord, Show)
newtype SednaConnAttrValue  = SednaConnAttrValue  { sednaConnAttrValue  :: CInt } deriving(Eq, Ord, Show)

attrAutoCommit                      :: SednaConnectionAttr
attrAutoCommit                      = SednaConnectionAttr 0
attrSessionDirectory                :: SednaConnectionAttr
attrSessionDirectory                = SednaConnectionAttr 1
attrDebug                           :: SednaConnectionAttr
attrDebug                           = SednaConnectionAttr 2
attrBoundarySpacePreserveWhileLoad  :: SednaConnectionAttr
attrBoundarySpacePreserveWhileLoad  = SednaConnectionAttr 3
attrConcurrencyType                 :: SednaConnectionAttr
attrConcurrencyType                 = SednaConnectionAttr 4
attrQueryExecTimeOut                :: SednaConnectionAttr
attrQueryExecTimeOut                = SednaConnectionAttr 5
attrLogAmount                       :: SednaConnectionAttr
attrLogAmount                       = SednaConnectionAttr 6
attrMaxResultSize                   :: SednaConnectionAttr
attrMaxResultSize                   = SednaConnectionAttr 7

{-# LINE 21 "src/Database/SednaDB/Internal/SednaConnectionAttributes.hsc" #-}

autoCommitOff                 :: SednaConnAttrValue
autoCommitOff                 = SednaConnAttrValue 30
autoCommitOn                  :: SednaConnAttrValue
autoCommitOn                  = SednaConnAttrValue 31
readOnlyTransaction           :: SednaConnAttrValue
readOnlyTransaction           = SednaConnAttrValue 2
updateTransaction             :: SednaConnAttrValue
updateTransaction             = SednaConnAttrValue 3
debugOn                       :: SednaConnAttrValue
debugOn                       = SednaConnAttrValue 1
debugOff                      :: SednaConnAttrValue
debugOff                      = SednaConnAttrValue 0
logLess                       :: SednaConnAttrValue
logLess                       = SednaConnAttrValue 7
logFull                       :: SednaConnAttrValue
logFull                       = SednaConnAttrValue 8
boundarySpacePreserveOn       :: SednaConnAttrValue
boundarySpacePreserveOn       = SednaConnAttrValue 36
boundarySpacePreserveOff      :: SednaConnAttrValue
boundarySpacePreserveOff      = SednaConnAttrValue 35

{-# LINE 34 "src/Database/SednaDB/Internal/SednaConnectionAttributes.hsc" #-}