module Database.Cassandra.Thrift.Cassandra_Types where
import Thrift
import Data.Typeable ( Typeable )
import Control.Exception
import qualified Data.Map as Map
import qualified Data.Set as Set
import Data.Int;
import Prelude ((==), String, Eq, Show, Ord, Maybe(..), (&&), (||), return, IO, Enum, fromEnum, toEnum, Bool(..), (++), ($), Double, (), length)
data ConsistencyLevel = ZERO|ONE|QUORUM|DCQUORUM|DCQUORUMSYNC|ALL|ANY deriving (Show,Eq, Typeable, Ord)
instance Enum ConsistencyLevel where
fromEnum t = case t of
ZERO -> 0
ONE -> 1
QUORUM -> 2
DCQUORUM -> 3
DCQUORUMSYNC -> 4
ALL -> 5
ANY -> 6
toEnum t = case t of
0 -> ZERO
1 -> ONE
2 -> QUORUM
3 -> DCQUORUM
4 -> DCQUORUMSYNC
5 -> ALL
6 -> ANY
_ -> throw ThriftException
data Column = Column{f_Column_name :: Maybe String,f_Column_value :: Maybe String,f_Column_timestamp :: Maybe Int64} deriving (Show,Eq,Ord,Typeable)
write_Column oprot rec = do
writeStructBegin oprot "Column"
case f_Column_name rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("name",T_STRING,1)
writeString oprot _v
writeFieldEnd oprot}
case f_Column_value rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("value",T_STRING,2)
writeString oprot _v
writeFieldEnd oprot}
case f_Column_timestamp rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("timestamp",T_I64,3)
writeI64 oprot _v
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_Column_fields iprot rec = do
(_,_t3,_id4) <- readFieldBegin iprot
if _t3 == T_STOP then return rec else
case _id4 of
1 -> if _t3 == T_STRING then do
s <- readString iprot
read_Column_fields iprot rec{f_Column_name=Just s}
else do
skip iprot _t3
read_Column_fields iprot rec
2 -> if _t3 == T_STRING then do
s <- readString iprot
read_Column_fields iprot rec{f_Column_value=Just s}
else do
skip iprot _t3
read_Column_fields iprot rec
3 -> if _t3 == T_I64 then do
s <- readI64 iprot
read_Column_fields iprot rec{f_Column_timestamp=Just s}
else do
skip iprot _t3
read_Column_fields iprot rec
_ -> do
skip iprot _t3
readFieldEnd iprot
read_Column_fields iprot rec
read_Column iprot = do
readStructBegin iprot
rec <- read_Column_fields iprot (Column{f_Column_name=Nothing,f_Column_value=Nothing,f_Column_timestamp=Nothing})
readStructEnd iprot
return rec
data SuperColumn = SuperColumn{f_SuperColumn_name :: Maybe String,f_SuperColumn_columns :: Maybe [Column]} deriving (Show,Eq,Ord,Typeable)
write_SuperColumn oprot rec = do
writeStructBegin oprot "SuperColumn"
case f_SuperColumn_name rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("name",T_STRING,1)
writeString oprot _v
writeFieldEnd oprot}
case f_SuperColumn_columns rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("columns",T_LIST,2)
(let {f [] = return (); f (_viter7:t) = do {write_Column oprot _viter7;f t}} in do {writeListBegin oprot (T_STRUCT,length _v); f _v;writeListEnd oprot})
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_SuperColumn_fields iprot rec = do
(_,_t9,_id10) <- readFieldBegin iprot
if _t9 == T_STOP then return rec else
case _id10 of
1 -> if _t9 == T_STRING then do
s <- readString iprot
read_SuperColumn_fields iprot rec{f_SuperColumn_name=Just s}
else do
skip iprot _t9
read_SuperColumn_fields iprot rec
2 -> if _t9 == T_LIST then do
s <- (let {f 0 = return []; f n = do {v <- (read_Column iprot);r <- f (n1); return $ v:r}} in do {(_etype14,_size11) <- readListBegin iprot; f _size11})
read_SuperColumn_fields iprot rec{f_SuperColumn_columns=Just s}
else do
skip iprot _t9
read_SuperColumn_fields iprot rec
_ -> do
skip iprot _t9
readFieldEnd iprot
read_SuperColumn_fields iprot rec
read_SuperColumn iprot = do
readStructBegin iprot
rec <- read_SuperColumn_fields iprot (SuperColumn{f_SuperColumn_name=Nothing,f_SuperColumn_columns=Nothing})
readStructEnd iprot
return rec
data ColumnOrSuperColumn = ColumnOrSuperColumn{f_ColumnOrSuperColumn_column :: Maybe Column,f_ColumnOrSuperColumn_super_column :: Maybe SuperColumn} deriving (Show,Eq,Ord,Typeable)
write_ColumnOrSuperColumn oprot rec = do
writeStructBegin oprot "ColumnOrSuperColumn"
case f_ColumnOrSuperColumn_column rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("column",T_STRUCT,1)
write_Column oprot _v
writeFieldEnd oprot}
case f_ColumnOrSuperColumn_super_column rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("super_column",T_STRUCT,2)
write_SuperColumn oprot _v
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_ColumnOrSuperColumn_fields iprot rec = do
(_,_t19,_id20) <- readFieldBegin iprot
if _t19 == T_STOP then return rec else
case _id20 of
1 -> if _t19 == T_STRUCT then do
s <- (read_Column iprot)
read_ColumnOrSuperColumn_fields iprot rec{f_ColumnOrSuperColumn_column=Just s}
else do
skip iprot _t19
read_ColumnOrSuperColumn_fields iprot rec
2 -> if _t19 == T_STRUCT then do
s <- (read_SuperColumn iprot)
read_ColumnOrSuperColumn_fields iprot rec{f_ColumnOrSuperColumn_super_column=Just s}
else do
skip iprot _t19
read_ColumnOrSuperColumn_fields iprot rec
_ -> do
skip iprot _t19
readFieldEnd iprot
read_ColumnOrSuperColumn_fields iprot rec
read_ColumnOrSuperColumn iprot = do
readStructBegin iprot
rec <- read_ColumnOrSuperColumn_fields iprot (ColumnOrSuperColumn{f_ColumnOrSuperColumn_column=Nothing,f_ColumnOrSuperColumn_super_column=Nothing})
readStructEnd iprot
return rec
data NotFoundException = NotFoundException deriving (Show,Eq,Ord,Typeable)
instance Exception NotFoundException
write_NotFoundException oprot rec = do
writeStructBegin oprot "NotFoundException"
writeFieldStop oprot
writeStructEnd oprot
read_NotFoundException_fields iprot rec = do
(_,_t24,_id25) <- readFieldBegin iprot
if _t24 == T_STOP then return rec else
case _id25 of
_ -> do
skip iprot _t24
readFieldEnd iprot
read_NotFoundException_fields iprot rec
read_NotFoundException iprot = do
readStructBegin iprot
rec <- read_NotFoundException_fields iprot (NotFoundException{})
readStructEnd iprot
return rec
data InvalidRequestException = InvalidRequestException{f_InvalidRequestException_why :: Maybe String} deriving (Show,Eq,Ord,Typeable)
instance Exception InvalidRequestException
write_InvalidRequestException oprot rec = do
writeStructBegin oprot "InvalidRequestException"
case f_InvalidRequestException_why rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("why",T_STRING,1)
writeString oprot _v
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_InvalidRequestException_fields iprot rec = do
(_,_t29,_id30) <- readFieldBegin iprot
if _t29 == T_STOP then return rec else
case _id30 of
1 -> if _t29 == T_STRING then do
s <- readString iprot
read_InvalidRequestException_fields iprot rec{f_InvalidRequestException_why=Just s}
else do
skip iprot _t29
read_InvalidRequestException_fields iprot rec
_ -> do
skip iprot _t29
readFieldEnd iprot
read_InvalidRequestException_fields iprot rec
read_InvalidRequestException iprot = do
readStructBegin iprot
rec <- read_InvalidRequestException_fields iprot (InvalidRequestException{f_InvalidRequestException_why=Nothing})
readStructEnd iprot
return rec
data UnavailableException = UnavailableException deriving (Show,Eq,Ord,Typeable)
instance Exception UnavailableException
write_UnavailableException oprot rec = do
writeStructBegin oprot "UnavailableException"
writeFieldStop oprot
writeStructEnd oprot
read_UnavailableException_fields iprot rec = do
(_,_t34,_id35) <- readFieldBegin iprot
if _t34 == T_STOP then return rec else
case _id35 of
_ -> do
skip iprot _t34
readFieldEnd iprot
read_UnavailableException_fields iprot rec
read_UnavailableException iprot = do
readStructBegin iprot
rec <- read_UnavailableException_fields iprot (UnavailableException{})
readStructEnd iprot
return rec
data TimedOutException = TimedOutException deriving (Show,Eq,Ord,Typeable)
instance Exception TimedOutException
write_TimedOutException oprot rec = do
writeStructBegin oprot "TimedOutException"
writeFieldStop oprot
writeStructEnd oprot
read_TimedOutException_fields iprot rec = do
(_,_t39,_id40) <- readFieldBegin iprot
if _t39 == T_STOP then return rec else
case _id40 of
_ -> do
skip iprot _t39
readFieldEnd iprot
read_TimedOutException_fields iprot rec
read_TimedOutException iprot = do
readStructBegin iprot
rec <- read_TimedOutException_fields iprot (TimedOutException{})
readStructEnd iprot
return rec
data AuthenticationException = AuthenticationException{f_AuthenticationException_why :: Maybe String} deriving (Show,Eq,Ord,Typeable)
instance Exception AuthenticationException
write_AuthenticationException oprot rec = do
writeStructBegin oprot "AuthenticationException"
case f_AuthenticationException_why rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("why",T_STRING,1)
writeString oprot _v
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_AuthenticationException_fields iprot rec = do
(_,_t44,_id45) <- readFieldBegin iprot
if _t44 == T_STOP then return rec else
case _id45 of
1 -> if _t44 == T_STRING then do
s <- readString iprot
read_AuthenticationException_fields iprot rec{f_AuthenticationException_why=Just s}
else do
skip iprot _t44
read_AuthenticationException_fields iprot rec
_ -> do
skip iprot _t44
readFieldEnd iprot
read_AuthenticationException_fields iprot rec
read_AuthenticationException iprot = do
readStructBegin iprot
rec <- read_AuthenticationException_fields iprot (AuthenticationException{f_AuthenticationException_why=Nothing})
readStructEnd iprot
return rec
data AuthorizationException = AuthorizationException{f_AuthorizationException_why :: Maybe String} deriving (Show,Eq,Ord,Typeable)
instance Exception AuthorizationException
write_AuthorizationException oprot rec = do
writeStructBegin oprot "AuthorizationException"
case f_AuthorizationException_why rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("why",T_STRING,1)
writeString oprot _v
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_AuthorizationException_fields iprot rec = do
(_,_t49,_id50) <- readFieldBegin iprot
if _t49 == T_STOP then return rec else
case _id50 of
1 -> if _t49 == T_STRING then do
s <- readString iprot
read_AuthorizationException_fields iprot rec{f_AuthorizationException_why=Just s}
else do
skip iprot _t49
read_AuthorizationException_fields iprot rec
_ -> do
skip iprot _t49
readFieldEnd iprot
read_AuthorizationException_fields iprot rec
read_AuthorizationException iprot = do
readStructBegin iprot
rec <- read_AuthorizationException_fields iprot (AuthorizationException{f_AuthorizationException_why=Nothing})
readStructEnd iprot
return rec
data ColumnParent = ColumnParent{f_ColumnParent_column_family :: Maybe String,f_ColumnParent_super_column :: Maybe String} deriving (Show,Eq,Ord,Typeable)
write_ColumnParent oprot rec = do
writeStructBegin oprot "ColumnParent"
case f_ColumnParent_column_family rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("column_family",T_STRING,3)
writeString oprot _v
writeFieldEnd oprot}
case f_ColumnParent_super_column rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("super_column",T_STRING,4)
writeString oprot _v
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_ColumnParent_fields iprot rec = do
(_,_t54,_id55) <- readFieldBegin iprot
if _t54 == T_STOP then return rec else
case _id55 of
3 -> if _t54 == T_STRING then do
s <- readString iprot
read_ColumnParent_fields iprot rec{f_ColumnParent_column_family=Just s}
else do
skip iprot _t54
read_ColumnParent_fields iprot rec
4 -> if _t54 == T_STRING then do
s <- readString iprot
read_ColumnParent_fields iprot rec{f_ColumnParent_super_column=Just s}
else do
skip iprot _t54
read_ColumnParent_fields iprot rec
_ -> do
skip iprot _t54
readFieldEnd iprot
read_ColumnParent_fields iprot rec
read_ColumnParent iprot = do
readStructBegin iprot
rec <- read_ColumnParent_fields iprot (ColumnParent{f_ColumnParent_column_family=Nothing,f_ColumnParent_super_column=Nothing})
readStructEnd iprot
return rec
data ColumnPath = ColumnPath{f_ColumnPath_column_family :: Maybe String,f_ColumnPath_super_column :: Maybe String,f_ColumnPath_column :: Maybe String} deriving (Show,Eq,Ord,Typeable)
write_ColumnPath oprot rec = do
writeStructBegin oprot "ColumnPath"
case f_ColumnPath_column_family rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("column_family",T_STRING,3)
writeString oprot _v
writeFieldEnd oprot}
case f_ColumnPath_super_column rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("super_column",T_STRING,4)
writeString oprot _v
writeFieldEnd oprot}
case f_ColumnPath_column rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("column",T_STRING,5)
writeString oprot _v
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_ColumnPath_fields iprot rec = do
(_,_t59,_id60) <- readFieldBegin iprot
if _t59 == T_STOP then return rec else
case _id60 of
3 -> if _t59 == T_STRING then do
s <- readString iprot
read_ColumnPath_fields iprot rec{f_ColumnPath_column_family=Just s}
else do
skip iprot _t59
read_ColumnPath_fields iprot rec
4 -> if _t59 == T_STRING then do
s <- readString iprot
read_ColumnPath_fields iprot rec{f_ColumnPath_super_column=Just s}
else do
skip iprot _t59
read_ColumnPath_fields iprot rec
5 -> if _t59 == T_STRING then do
s <- readString iprot
read_ColumnPath_fields iprot rec{f_ColumnPath_column=Just s}
else do
skip iprot _t59
read_ColumnPath_fields iprot rec
_ -> do
skip iprot _t59
readFieldEnd iprot
read_ColumnPath_fields iprot rec
read_ColumnPath iprot = do
readStructBegin iprot
rec <- read_ColumnPath_fields iprot (ColumnPath{f_ColumnPath_column_family=Nothing,f_ColumnPath_super_column=Nothing,f_ColumnPath_column=Nothing})
readStructEnd iprot
return rec
data SliceRange = SliceRange{f_SliceRange_start :: Maybe String,f_SliceRange_finish :: Maybe String,f_SliceRange_reversed :: Maybe Bool,f_SliceRange_count :: Maybe Int} deriving (Show,Eq,Ord,Typeable)
write_SliceRange oprot rec = do
writeStructBegin oprot "SliceRange"
case f_SliceRange_start rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("start",T_STRING,1)
writeString oprot _v
writeFieldEnd oprot}
case f_SliceRange_finish rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("finish",T_STRING,2)
writeString oprot _v
writeFieldEnd oprot}
case f_SliceRange_reversed rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("reversed",T_BOOL,3)
writeBool oprot _v
writeFieldEnd oprot}
case f_SliceRange_count rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("count",T_I32,4)
writeI32 oprot _v
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_SliceRange_fields iprot rec = do
(_,_t64,_id65) <- readFieldBegin iprot
if _t64 == T_STOP then return rec else
case _id65 of
1 -> if _t64 == T_STRING then do
s <- readString iprot
read_SliceRange_fields iprot rec{f_SliceRange_start=Just s}
else do
skip iprot _t64
read_SliceRange_fields iprot rec
2 -> if _t64 == T_STRING then do
s <- readString iprot
read_SliceRange_fields iprot rec{f_SliceRange_finish=Just s}
else do
skip iprot _t64
read_SliceRange_fields iprot rec
3 -> if _t64 == T_BOOL then do
s <- readBool iprot
read_SliceRange_fields iprot rec{f_SliceRange_reversed=Just s}
else do
skip iprot _t64
read_SliceRange_fields iprot rec
4 -> if _t64 == T_I32 then do
s <- readI32 iprot
read_SliceRange_fields iprot rec{f_SliceRange_count=Just s}
else do
skip iprot _t64
read_SliceRange_fields iprot rec
_ -> do
skip iprot _t64
readFieldEnd iprot
read_SliceRange_fields iprot rec
read_SliceRange iprot = do
readStructBegin iprot
rec <- read_SliceRange_fields iprot (SliceRange{f_SliceRange_start=Nothing,f_SliceRange_finish=Nothing,f_SliceRange_reversed=Nothing,f_SliceRange_count=Nothing})
readStructEnd iprot
return rec
data SlicePredicate = SlicePredicate{f_SlicePredicate_column_names :: Maybe [String],f_SlicePredicate_slice_range :: Maybe SliceRange} deriving (Show,Eq,Ord,Typeable)
write_SlicePredicate oprot rec = do
writeStructBegin oprot "SlicePredicate"
case f_SlicePredicate_column_names rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("column_names",T_LIST,1)
(let {f [] = return (); f (_viter68:t) = do {writeString oprot _viter68;f t}} in do {writeListBegin oprot (T_STRING,length _v); f _v;writeListEnd oprot})
writeFieldEnd oprot}
case f_SlicePredicate_slice_range rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("slice_range",T_STRUCT,2)
write_SliceRange oprot _v
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_SlicePredicate_fields iprot rec = do
(_,_t70,_id71) <- readFieldBegin iprot
if _t70 == T_STOP then return rec else
case _id71 of
1 -> if _t70 == T_LIST then do
s <- (let {f 0 = return []; f n = do {v <- readString iprot;r <- f (n1); return $ v:r}} in do {(_etype75,_size72) <- readListBegin iprot; f _size72})
read_SlicePredicate_fields iprot rec{f_SlicePredicate_column_names=Just s}
else do
skip iprot _t70
read_SlicePredicate_fields iprot rec
2 -> if _t70 == T_STRUCT then do
s <- (read_SliceRange iprot)
read_SlicePredicate_fields iprot rec{f_SlicePredicate_slice_range=Just s}
else do
skip iprot _t70
read_SlicePredicate_fields iprot rec
_ -> do
skip iprot _t70
readFieldEnd iprot
read_SlicePredicate_fields iprot rec
read_SlicePredicate iprot = do
readStructBegin iprot
rec <- read_SlicePredicate_fields iprot (SlicePredicate{f_SlicePredicate_column_names=Nothing,f_SlicePredicate_slice_range=Nothing})
readStructEnd iprot
return rec
data KeyRange = KeyRange{f_KeyRange_start_key :: Maybe String,f_KeyRange_end_key :: Maybe String,f_KeyRange_start_token :: Maybe String,f_KeyRange_end_token :: Maybe String,f_KeyRange_count :: Maybe Int} deriving (Show,Eq,Ord,Typeable)
write_KeyRange oprot rec = do
writeStructBegin oprot "KeyRange"
case f_KeyRange_start_key rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("start_key",T_STRING,1)
writeString oprot _v
writeFieldEnd oprot}
case f_KeyRange_end_key rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("end_key",T_STRING,2)
writeString oprot _v
writeFieldEnd oprot}
case f_KeyRange_start_token rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("start_token",T_STRING,3)
writeString oprot _v
writeFieldEnd oprot}
case f_KeyRange_end_token rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("end_token",T_STRING,4)
writeString oprot _v
writeFieldEnd oprot}
case f_KeyRange_count rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("count",T_I32,5)
writeI32 oprot _v
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_KeyRange_fields iprot rec = do
(_,_t80,_id81) <- readFieldBegin iprot
if _t80 == T_STOP then return rec else
case _id81 of
1 -> if _t80 == T_STRING then do
s <- readString iprot
read_KeyRange_fields iprot rec{f_KeyRange_start_key=Just s}
else do
skip iprot _t80
read_KeyRange_fields iprot rec
2 -> if _t80 == T_STRING then do
s <- readString iprot
read_KeyRange_fields iprot rec{f_KeyRange_end_key=Just s}
else do
skip iprot _t80
read_KeyRange_fields iprot rec
3 -> if _t80 == T_STRING then do
s <- readString iprot
read_KeyRange_fields iprot rec{f_KeyRange_start_token=Just s}
else do
skip iprot _t80
read_KeyRange_fields iprot rec
4 -> if _t80 == T_STRING then do
s <- readString iprot
read_KeyRange_fields iprot rec{f_KeyRange_end_token=Just s}
else do
skip iprot _t80
read_KeyRange_fields iprot rec
5 -> if _t80 == T_I32 then do
s <- readI32 iprot
read_KeyRange_fields iprot rec{f_KeyRange_count=Just s}
else do
skip iprot _t80
read_KeyRange_fields iprot rec
_ -> do
skip iprot _t80
readFieldEnd iprot
read_KeyRange_fields iprot rec
read_KeyRange iprot = do
readStructBegin iprot
rec <- read_KeyRange_fields iprot (KeyRange{f_KeyRange_start_key=Nothing,f_KeyRange_end_key=Nothing,f_KeyRange_start_token=Nothing,f_KeyRange_end_token=Nothing,f_KeyRange_count=Nothing})
readStructEnd iprot
return rec
data KeySlice = KeySlice{f_KeySlice_key :: Maybe String,f_KeySlice_columns :: Maybe [ColumnOrSuperColumn]} deriving (Show,Eq,Ord,Typeable)
write_KeySlice oprot rec = do
writeStructBegin oprot "KeySlice"
case f_KeySlice_key rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("key",T_STRING,1)
writeString oprot _v
writeFieldEnd oprot}
case f_KeySlice_columns rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("columns",T_LIST,2)
(let {f [] = return (); f (_viter84:t) = do {write_ColumnOrSuperColumn oprot _viter84;f t}} in do {writeListBegin oprot (T_STRUCT,length _v); f _v;writeListEnd oprot})
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_KeySlice_fields iprot rec = do
(_,_t86,_id87) <- readFieldBegin iprot
if _t86 == T_STOP then return rec else
case _id87 of
1 -> if _t86 == T_STRING then do
s <- readString iprot
read_KeySlice_fields iprot rec{f_KeySlice_key=Just s}
else do
skip iprot _t86
read_KeySlice_fields iprot rec
2 -> if _t86 == T_LIST then do
s <- (let {f 0 = return []; f n = do {v <- (read_ColumnOrSuperColumn iprot);r <- f (n1); return $ v:r}} in do {(_etype91,_size88) <- readListBegin iprot; f _size88})
read_KeySlice_fields iprot rec{f_KeySlice_columns=Just s}
else do
skip iprot _t86
read_KeySlice_fields iprot rec
_ -> do
skip iprot _t86
readFieldEnd iprot
read_KeySlice_fields iprot rec
read_KeySlice iprot = do
readStructBegin iprot
rec <- read_KeySlice_fields iprot (KeySlice{f_KeySlice_key=Nothing,f_KeySlice_columns=Nothing})
readStructEnd iprot
return rec
data Deletion = Deletion{f_Deletion_timestamp :: Maybe Int64,f_Deletion_super_column :: Maybe String,f_Deletion_predicate :: Maybe SlicePredicate} deriving (Show,Eq,Ord,Typeable)
write_Deletion oprot rec = do
writeStructBegin oprot "Deletion"
case f_Deletion_timestamp rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("timestamp",T_I64,1)
writeI64 oprot _v
writeFieldEnd oprot}
case f_Deletion_super_column rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("super_column",T_STRING,2)
writeString oprot _v
writeFieldEnd oprot}
case f_Deletion_predicate rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("predicate",T_STRUCT,3)
write_SlicePredicate oprot _v
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_Deletion_fields iprot rec = do
(_,_t96,_id97) <- readFieldBegin iprot
if _t96 == T_STOP then return rec else
case _id97 of
1 -> if _t96 == T_I64 then do
s <- readI64 iprot
read_Deletion_fields iprot rec{f_Deletion_timestamp=Just s}
else do
skip iprot _t96
read_Deletion_fields iprot rec
2 -> if _t96 == T_STRING then do
s <- readString iprot
read_Deletion_fields iprot rec{f_Deletion_super_column=Just s}
else do
skip iprot _t96
read_Deletion_fields iprot rec
3 -> if _t96 == T_STRUCT then do
s <- (read_SlicePredicate iprot)
read_Deletion_fields iprot rec{f_Deletion_predicate=Just s}
else do
skip iprot _t96
read_Deletion_fields iprot rec
_ -> do
skip iprot _t96
readFieldEnd iprot
read_Deletion_fields iprot rec
read_Deletion iprot = do
readStructBegin iprot
rec <- read_Deletion_fields iprot (Deletion{f_Deletion_timestamp=Nothing,f_Deletion_super_column=Nothing,f_Deletion_predicate=Nothing})
readStructEnd iprot
return rec
data Mutation = Mutation{f_Mutation_column_or_supercolumn :: Maybe ColumnOrSuperColumn,f_Mutation_deletion :: Maybe Deletion} deriving (Show,Eq,Ord,Typeable)
write_Mutation oprot rec = do
writeStructBegin oprot "Mutation"
case f_Mutation_column_or_supercolumn rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("column_or_supercolumn",T_STRUCT,1)
write_ColumnOrSuperColumn oprot _v
writeFieldEnd oprot}
case f_Mutation_deletion rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("deletion",T_STRUCT,2)
write_Deletion oprot _v
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_Mutation_fields iprot rec = do
(_,_t101,_id102) <- readFieldBegin iprot
if _t101 == T_STOP then return rec else
case _id102 of
1 -> if _t101 == T_STRUCT then do
s <- (read_ColumnOrSuperColumn iprot)
read_Mutation_fields iprot rec{f_Mutation_column_or_supercolumn=Just s}
else do
skip iprot _t101
read_Mutation_fields iprot rec
2 -> if _t101 == T_STRUCT then do
s <- (read_Deletion iprot)
read_Mutation_fields iprot rec{f_Mutation_deletion=Just s}
else do
skip iprot _t101
read_Mutation_fields iprot rec
_ -> do
skip iprot _t101
readFieldEnd iprot
read_Mutation_fields iprot rec
read_Mutation iprot = do
readStructBegin iprot
rec <- read_Mutation_fields iprot (Mutation{f_Mutation_column_or_supercolumn=Nothing,f_Mutation_deletion=Nothing})
readStructEnd iprot
return rec
data TokenRange = TokenRange{f_TokenRange_start_token :: Maybe String,f_TokenRange_end_token :: Maybe String,f_TokenRange_endpoints :: Maybe [String]} deriving (Show,Eq,Ord,Typeable)
write_TokenRange oprot rec = do
writeStructBegin oprot "TokenRange"
case f_TokenRange_start_token rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("start_token",T_STRING,1)
writeString oprot _v
writeFieldEnd oprot}
case f_TokenRange_end_token rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("end_token",T_STRING,2)
writeString oprot _v
writeFieldEnd oprot}
case f_TokenRange_endpoints rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("endpoints",T_LIST,3)
(let {f [] = return (); f (_viter105:t) = do {writeString oprot _viter105;f t}} in do {writeListBegin oprot (T_STRING,length _v); f _v;writeListEnd oprot})
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_TokenRange_fields iprot rec = do
(_,_t107,_id108) <- readFieldBegin iprot
if _t107 == T_STOP then return rec else
case _id108 of
1 -> if _t107 == T_STRING then do
s <- readString iprot
read_TokenRange_fields iprot rec{f_TokenRange_start_token=Just s}
else do
skip iprot _t107
read_TokenRange_fields iprot rec
2 -> if _t107 == T_STRING then do
s <- readString iprot
read_TokenRange_fields iprot rec{f_TokenRange_end_token=Just s}
else do
skip iprot _t107
read_TokenRange_fields iprot rec
3 -> if _t107 == T_LIST then do
s <- (let {f 0 = return []; f n = do {v <- readString iprot;r <- f (n1); return $ v:r}} in do {(_etype112,_size109) <- readListBegin iprot; f _size109})
read_TokenRange_fields iprot rec{f_TokenRange_endpoints=Just s}
else do
skip iprot _t107
read_TokenRange_fields iprot rec
_ -> do
skip iprot _t107
readFieldEnd iprot
read_TokenRange_fields iprot rec
read_TokenRange iprot = do
readStructBegin iprot
rec <- read_TokenRange_fields iprot (TokenRange{f_TokenRange_start_token=Nothing,f_TokenRange_end_token=Nothing,f_TokenRange_endpoints=Nothing})
readStructEnd iprot
return rec
data AuthenticationRequest = AuthenticationRequest{f_AuthenticationRequest_credentials :: Maybe (Map.Map String String)} deriving (Show,Eq,Ord,Typeable)
write_AuthenticationRequest oprot rec = do
writeStructBegin oprot "AuthenticationRequest"
case f_AuthenticationRequest_credentials rec of {Nothing -> return (); Just _v -> do
writeFieldBegin oprot ("credentials",T_MAP,1)
(let {f [] = return (); f ((_kiter116,_viter117):t) = do {do {writeString oprot _kiter116;writeString oprot _viter117};f t}} in do {writeMapBegin oprot (T_STRING,T_STRING,Map.size _v); f (Map.toList _v);writeMapEnd oprot})
writeFieldEnd oprot}
writeFieldStop oprot
writeStructEnd oprot
read_AuthenticationRequest_fields iprot rec = do
(_,_t119,_id120) <- readFieldBegin iprot
if _t119 == T_STOP then return rec else
case _id120 of
1 -> if _t119 == T_MAP then do
s <- (let {f 0 = return []; f n = do {k <- readString iprot; v <- readString iprot;r <- f (n1); return $ (k,v):r}} in do {(_ktype122,_vtype123,_size121) <- readMapBegin iprot; l <- f _size121; return $ Map.fromList l})
read_AuthenticationRequest_fields iprot rec{f_AuthenticationRequest_credentials=Just s}
else do
skip iprot _t119
read_AuthenticationRequest_fields iprot rec
_ -> do
skip iprot _t119
readFieldEnd iprot
read_AuthenticationRequest_fields iprot rec
read_AuthenticationRequest iprot = do
readStructBegin iprot
rec <- read_AuthenticationRequest_fields iprot (AuthenticationRequest{f_AuthenticationRequest_credentials=Nothing})
readStructEnd iprot
return rec