{-# LANGUAGE DeriveDataTypeable #-}
{-# OPTIONS_GHC -fno-warn-missing-fields #-}
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
{-# OPTIONS_GHC -fno-warn-name-shadowing #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-----------------------------------------------------------------
-- Autogenerated by Thrift                                     --
--                                                             --
-- DO NOT EDIT UNLESS YOU ARE SURE YOU KNOW WHAT YOU ARE DOING --
-----------------------------------------------------------------

module Database.Cassandra.Thrift.Cassandra_Types where
import Prelude ( Bool(..), Enum, Double, String, Maybe(..),
                 Eq, Show, Ord,
                 return, length, IO, fromIntegral, fromEnum, toEnum,
                 (&&), (||), (==), (++), ($), (-) )

import Control.Exception
import Data.ByteString.Lazy
import Data.Int
import Data.Typeable ( Typeable )
import qualified Data.Map as Map
import qualified Data.Set as Set

import Thrift


data ConsistencyLevel = ONE|QUORUM|LOCAL_QUORUM|EACH_QUORUM|ALL|ANY|TWO|THREE  deriving (Show,Eq, Typeable, Ord)
instance Enum ConsistencyLevel where
  fromEnum t = case t of
    ONE -> 1
    QUORUM -> 2
    LOCAL_QUORUM -> 3
    EACH_QUORUM -> 4
    ALL -> 5
    ANY -> 6
    TWO -> 7
    THREE -> 8
  toEnum t = case t of
    1 -> ONE
    2 -> QUORUM
    3 -> LOCAL_QUORUM
    4 -> EACH_QUORUM
    5 -> ALL
    6 -> ANY
    7 -> TWO
    8 -> THREE
    _ -> throw ThriftException
data IndexOperator = EQ|GTE|GT|LTE|LT  deriving (Show,Eq, Typeable, Ord)
instance Enum IndexOperator where
  fromEnum t = case t of
    EQ -> 0
    GTE -> 1
    GT -> 2
    LTE -> 3
    LT -> 4
  toEnum t = case t of
    0 -> EQ
    1 -> GTE
    2 -> GT
    3 -> LTE
    4 -> LT
    _ -> throw ThriftException
data IndexType = KEYS  deriving (Show,Eq, Typeable, Ord)
instance Enum IndexType where
  fromEnum t = case t of
    KEYS -> 0
  toEnum t = case t of
    0 -> KEYS
    _ -> throw ThriftException
data Compression = GZIP|NONE  deriving (Show,Eq, Typeable, Ord)
instance Enum Compression where
  fromEnum t = case t of
    GZIP -> 1
    NONE -> 2
  toEnum t = case t of
    1 -> GZIP
    2 -> NONE
    _ -> throw ThriftException
data CqlResultType = ROWS|VOID|INT  deriving (Show,Eq, Typeable, Ord)
instance Enum CqlResultType where
  fromEnum t = case t of
    ROWS -> 1
    VOID -> 2
    INT -> 3
  toEnum t = case t of
    1 -> ROWS
    2 -> VOID
    3 -> INT
    _ -> throw ThriftException
data Column = Column{f_Column_name :: Maybe ByteString,f_Column_value :: Maybe ByteString,f_Column_timestamp :: Maybe Int64,f_Column_ttl :: Maybe Int32} deriving (Show,Eq,Ord,Typeable)
write_Column oprot record = do
  writeStructBegin oprot "Column"
  case f_Column_name record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("name",T_STRING,1)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_Column_value record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("value",T_STRING,2)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_Column_timestamp record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("timestamp",T_I64,3)
    writeI64 oprot _v
    writeFieldEnd oprot}
  case f_Column_ttl record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("ttl",T_I32,4)
    writeI32 oprot _v
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_Column_fields iprot record = do
  (_,_t3,_id4) <- readFieldBegin iprot
  if _t3 == T_STOP then return record else
    case _id4 of 
      1 -> if _t3 == T_STRING then do
        s <- readBinary iprot
        read_Column_fields iprot record{f_Column_name=Just s}
        else do
          skip iprot _t3
          read_Column_fields iprot record
      2 -> if _t3 == T_STRING then do
        s <- readBinary iprot
        read_Column_fields iprot record{f_Column_value=Just s}
        else do
          skip iprot _t3
          read_Column_fields iprot record
      3 -> if _t3 == T_I64 then do
        s <- readI64 iprot
        read_Column_fields iprot record{f_Column_timestamp=Just s}
        else do
          skip iprot _t3
          read_Column_fields iprot record
      4 -> if _t3 == T_I32 then do
        s <- readI32 iprot
        read_Column_fields iprot record{f_Column_ttl=Just s}
        else do
          skip iprot _t3
          read_Column_fields iprot record
      _ -> do
        skip iprot _t3
        readFieldEnd iprot
        read_Column_fields iprot record
read_Column iprot = do
  _ <- readStructBegin iprot
  record <- read_Column_fields iprot (Column{f_Column_name=Nothing,f_Column_value=Nothing,f_Column_timestamp=Nothing,f_Column_ttl=Nothing})
  readStructEnd iprot
  return record
data SuperColumn = SuperColumn{f_SuperColumn_name :: Maybe ByteString,f_SuperColumn_columns :: Maybe [Column]} deriving (Show,Eq,Ord,Typeable)
write_SuperColumn oprot record = do
  writeStructBegin oprot "SuperColumn"
  case f_SuperColumn_name record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("name",T_STRING,1)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_SuperColumn_columns record 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,fromIntegral $ Prelude.length _v); f _v;writeListEnd oprot})
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_SuperColumn_fields iprot record = do
  (_,_t9,_id10) <- readFieldBegin iprot
  if _t9 == T_STOP then return record else
    case _id10 of 
      1 -> if _t9 == T_STRING then do
        s <- readBinary iprot
        read_SuperColumn_fields iprot record{f_SuperColumn_name=Just s}
        else do
          skip iprot _t9
          read_SuperColumn_fields iprot record
      2 -> if _t9 == T_LIST then do
        s <- (let {f 0 = return []; f n = do {v <- (read_Column iprot);r <- f (n-1); return $ v:r}} in do {(_etype14,_size11) <- readListBegin iprot; f _size11})
        read_SuperColumn_fields iprot record{f_SuperColumn_columns=Just s}
        else do
          skip iprot _t9
          read_SuperColumn_fields iprot record
      _ -> do
        skip iprot _t9
        readFieldEnd iprot
        read_SuperColumn_fields iprot record
read_SuperColumn iprot = do
  _ <- readStructBegin iprot
  record <- read_SuperColumn_fields iprot (SuperColumn{f_SuperColumn_name=Nothing,f_SuperColumn_columns=Nothing})
  readStructEnd iprot
  return record
data CounterColumn = CounterColumn{f_CounterColumn_name :: Maybe ByteString,f_CounterColumn_value :: Maybe Int64} deriving (Show,Eq,Ord,Typeable)
write_CounterColumn oprot record = do
  writeStructBegin oprot "CounterColumn"
  case f_CounterColumn_name record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("name",T_STRING,1)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_CounterColumn_value record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("value",T_I64,2)
    writeI64 oprot _v
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_CounterColumn_fields iprot record = do
  (_,_t19,_id20) <- readFieldBegin iprot
  if _t19 == T_STOP then return record else
    case _id20 of 
      1 -> if _t19 == T_STRING then do
        s <- readBinary iprot
        read_CounterColumn_fields iprot record{f_CounterColumn_name=Just s}
        else do
          skip iprot _t19
          read_CounterColumn_fields iprot record
      2 -> if _t19 == T_I64 then do
        s <- readI64 iprot
        read_CounterColumn_fields iprot record{f_CounterColumn_value=Just s}
        else do
          skip iprot _t19
          read_CounterColumn_fields iprot record
      _ -> do
        skip iprot _t19
        readFieldEnd iprot
        read_CounterColumn_fields iprot record
read_CounterColumn iprot = do
  _ <- readStructBegin iprot
  record <- read_CounterColumn_fields iprot (CounterColumn{f_CounterColumn_name=Nothing,f_CounterColumn_value=Nothing})
  readStructEnd iprot
  return record
data CounterSuperColumn = CounterSuperColumn{f_CounterSuperColumn_name :: Maybe ByteString,f_CounterSuperColumn_columns :: Maybe [CounterColumn]} deriving (Show,Eq,Ord,Typeable)
write_CounterSuperColumn oprot record = do
  writeStructBegin oprot "CounterSuperColumn"
  case f_CounterSuperColumn_name record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("name",T_STRING,1)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_CounterSuperColumn_columns record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("columns",T_LIST,2)
    (let {f [] = return (); f (_viter23:t) = do {write_CounterColumn oprot _viter23;f t}} in do {writeListBegin oprot (T_STRUCT,fromIntegral $ Prelude.length _v); f _v;writeListEnd oprot})
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_CounterSuperColumn_fields iprot record = do
  (_,_t25,_id26) <- readFieldBegin iprot
  if _t25 == T_STOP then return record else
    case _id26 of 
      1 -> if _t25 == T_STRING then do
        s <- readBinary iprot
        read_CounterSuperColumn_fields iprot record{f_CounterSuperColumn_name=Just s}
        else do
          skip iprot _t25
          read_CounterSuperColumn_fields iprot record
      2 -> if _t25 == T_LIST then do
        s <- (let {f 0 = return []; f n = do {v <- (read_CounterColumn iprot);r <- f (n-1); return $ v:r}} in do {(_etype30,_size27) <- readListBegin iprot; f _size27})
        read_CounterSuperColumn_fields iprot record{f_CounterSuperColumn_columns=Just s}
        else do
          skip iprot _t25
          read_CounterSuperColumn_fields iprot record
      _ -> do
        skip iprot _t25
        readFieldEnd iprot
        read_CounterSuperColumn_fields iprot record
read_CounterSuperColumn iprot = do
  _ <- readStructBegin iprot
  record <- read_CounterSuperColumn_fields iprot (CounterSuperColumn{f_CounterSuperColumn_name=Nothing,f_CounterSuperColumn_columns=Nothing})
  readStructEnd iprot
  return record
data ColumnOrSuperColumn = ColumnOrSuperColumn{f_ColumnOrSuperColumn_column :: Maybe Column,f_ColumnOrSuperColumn_super_column :: Maybe SuperColumn,f_ColumnOrSuperColumn_counter_column :: Maybe CounterColumn,f_ColumnOrSuperColumn_counter_super_column :: Maybe CounterSuperColumn} deriving (Show,Eq,Ord,Typeable)
write_ColumnOrSuperColumn oprot record = do
  writeStructBegin oprot "ColumnOrSuperColumn"
  case f_ColumnOrSuperColumn_column record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("column",T_STRUCT,1)
    write_Column oprot _v
    writeFieldEnd oprot}
  case f_ColumnOrSuperColumn_super_column record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("super_column",T_STRUCT,2)
    write_SuperColumn oprot _v
    writeFieldEnd oprot}
  case f_ColumnOrSuperColumn_counter_column record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("counter_column",T_STRUCT,3)
    write_CounterColumn oprot _v
    writeFieldEnd oprot}
  case f_ColumnOrSuperColumn_counter_super_column record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("counter_super_column",T_STRUCT,4)
    write_CounterSuperColumn oprot _v
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_ColumnOrSuperColumn_fields iprot record = do
  (_,_t35,_id36) <- readFieldBegin iprot
  if _t35 == T_STOP then return record else
    case _id36 of 
      1 -> if _t35 == T_STRUCT then do
        s <- (read_Column iprot)
        read_ColumnOrSuperColumn_fields iprot record{f_ColumnOrSuperColumn_column=Just s}
        else do
          skip iprot _t35
          read_ColumnOrSuperColumn_fields iprot record
      2 -> if _t35 == T_STRUCT then do
        s <- (read_SuperColumn iprot)
        read_ColumnOrSuperColumn_fields iprot record{f_ColumnOrSuperColumn_super_column=Just s}
        else do
          skip iprot _t35
          read_ColumnOrSuperColumn_fields iprot record
      3 -> if _t35 == T_STRUCT then do
        s <- (read_CounterColumn iprot)
        read_ColumnOrSuperColumn_fields iprot record{f_ColumnOrSuperColumn_counter_column=Just s}
        else do
          skip iprot _t35
          read_ColumnOrSuperColumn_fields iprot record
      4 -> if _t35 == T_STRUCT then do
        s <- (read_CounterSuperColumn iprot)
        read_ColumnOrSuperColumn_fields iprot record{f_ColumnOrSuperColumn_counter_super_column=Just s}
        else do
          skip iprot _t35
          read_ColumnOrSuperColumn_fields iprot record
      _ -> do
        skip iprot _t35
        readFieldEnd iprot
        read_ColumnOrSuperColumn_fields iprot record
read_ColumnOrSuperColumn iprot = do
  _ <- readStructBegin iprot
  record <- read_ColumnOrSuperColumn_fields iprot (ColumnOrSuperColumn{f_ColumnOrSuperColumn_column=Nothing,f_ColumnOrSuperColumn_super_column=Nothing,f_ColumnOrSuperColumn_counter_column=Nothing,f_ColumnOrSuperColumn_counter_super_column=Nothing})
  readStructEnd iprot
  return record
data NotFoundException = NotFoundException deriving (Show,Eq,Ord,Typeable)
instance Exception NotFoundException
write_NotFoundException oprot record = do
  writeStructBegin oprot "NotFoundException"
  writeFieldStop oprot
  writeStructEnd oprot
read_NotFoundException_fields iprot record = do
  (_,_t40,_id41) <- readFieldBegin iprot
  if _t40 == T_STOP then return record else
    case _id41 of 
      _ -> do
        skip iprot _t40
        readFieldEnd iprot
        read_NotFoundException_fields iprot record
read_NotFoundException iprot = do
  _ <- readStructBegin iprot
  record <- read_NotFoundException_fields iprot (NotFoundException{})
  readStructEnd iprot
  return record
data InvalidRequestException = InvalidRequestException{f_InvalidRequestException_why :: Maybe String} deriving (Show,Eq,Ord,Typeable)
instance Exception InvalidRequestException
write_InvalidRequestException oprot record = do
  writeStructBegin oprot "InvalidRequestException"
  case f_InvalidRequestException_why record 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 record = do
  (_,_t45,_id46) <- readFieldBegin iprot
  if _t45 == T_STOP then return record else
    case _id46 of 
      1 -> if _t45 == T_STRING then do
        s <- readString iprot
        read_InvalidRequestException_fields iprot record{f_InvalidRequestException_why=Just s}
        else do
          skip iprot _t45
          read_InvalidRequestException_fields iprot record
      _ -> do
        skip iprot _t45
        readFieldEnd iprot
        read_InvalidRequestException_fields iprot record
read_InvalidRequestException iprot = do
  _ <- readStructBegin iprot
  record <- read_InvalidRequestException_fields iprot (InvalidRequestException{f_InvalidRequestException_why=Nothing})
  readStructEnd iprot
  return record
data UnavailableException = UnavailableException deriving (Show,Eq,Ord,Typeable)
instance Exception UnavailableException
write_UnavailableException oprot record = do
  writeStructBegin oprot "UnavailableException"
  writeFieldStop oprot
  writeStructEnd oprot
read_UnavailableException_fields iprot record = do
  (_,_t50,_id51) <- readFieldBegin iprot
  if _t50 == T_STOP then return record else
    case _id51 of 
      _ -> do
        skip iprot _t50
        readFieldEnd iprot
        read_UnavailableException_fields iprot record
read_UnavailableException iprot = do
  _ <- readStructBegin iprot
  record <- read_UnavailableException_fields iprot (UnavailableException{})
  readStructEnd iprot
  return record
data TimedOutException = TimedOutException deriving (Show,Eq,Ord,Typeable)
instance Exception TimedOutException
write_TimedOutException oprot record = do
  writeStructBegin oprot "TimedOutException"
  writeFieldStop oprot
  writeStructEnd oprot
read_TimedOutException_fields iprot record = do
  (_,_t55,_id56) <- readFieldBegin iprot
  if _t55 == T_STOP then return record else
    case _id56 of 
      _ -> do
        skip iprot _t55
        readFieldEnd iprot
        read_TimedOutException_fields iprot record
read_TimedOutException iprot = do
  _ <- readStructBegin iprot
  record <- read_TimedOutException_fields iprot (TimedOutException{})
  readStructEnd iprot
  return record
data AuthenticationException = AuthenticationException{f_AuthenticationException_why :: Maybe String} deriving (Show,Eq,Ord,Typeable)
instance Exception AuthenticationException
write_AuthenticationException oprot record = do
  writeStructBegin oprot "AuthenticationException"
  case f_AuthenticationException_why record 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 record = do
  (_,_t60,_id61) <- readFieldBegin iprot
  if _t60 == T_STOP then return record else
    case _id61 of 
      1 -> if _t60 == T_STRING then do
        s <- readString iprot
        read_AuthenticationException_fields iprot record{f_AuthenticationException_why=Just s}
        else do
          skip iprot _t60
          read_AuthenticationException_fields iprot record
      _ -> do
        skip iprot _t60
        readFieldEnd iprot
        read_AuthenticationException_fields iprot record
read_AuthenticationException iprot = do
  _ <- readStructBegin iprot
  record <- read_AuthenticationException_fields iprot (AuthenticationException{f_AuthenticationException_why=Nothing})
  readStructEnd iprot
  return record
data AuthorizationException = AuthorizationException{f_AuthorizationException_why :: Maybe String} deriving (Show,Eq,Ord,Typeable)
instance Exception AuthorizationException
write_AuthorizationException oprot record = do
  writeStructBegin oprot "AuthorizationException"
  case f_AuthorizationException_why record 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 record = do
  (_,_t65,_id66) <- readFieldBegin iprot
  if _t65 == T_STOP then return record else
    case _id66 of 
      1 -> if _t65 == T_STRING then do
        s <- readString iprot
        read_AuthorizationException_fields iprot record{f_AuthorizationException_why=Just s}
        else do
          skip iprot _t65
          read_AuthorizationException_fields iprot record
      _ -> do
        skip iprot _t65
        readFieldEnd iprot
        read_AuthorizationException_fields iprot record
read_AuthorizationException iprot = do
  _ <- readStructBegin iprot
  record <- read_AuthorizationException_fields iprot (AuthorizationException{f_AuthorizationException_why=Nothing})
  readStructEnd iprot
  return record
data SchemaDisagreementException = SchemaDisagreementException deriving (Show,Eq,Ord,Typeable)
instance Exception SchemaDisagreementException
write_SchemaDisagreementException oprot record = do
  writeStructBegin oprot "SchemaDisagreementException"
  writeFieldStop oprot
  writeStructEnd oprot
read_SchemaDisagreementException_fields iprot record = do
  (_,_t70,_id71) <- readFieldBegin iprot
  if _t70 == T_STOP then return record else
    case _id71 of 
      _ -> do
        skip iprot _t70
        readFieldEnd iprot
        read_SchemaDisagreementException_fields iprot record
read_SchemaDisagreementException iprot = do
  _ <- readStructBegin iprot
  record <- read_SchemaDisagreementException_fields iprot (SchemaDisagreementException{})
  readStructEnd iprot
  return record
data ColumnParent = ColumnParent{f_ColumnParent_column_family :: Maybe String,f_ColumnParent_super_column :: Maybe ByteString} deriving (Show,Eq,Ord,Typeable)
write_ColumnParent oprot record = do
  writeStructBegin oprot "ColumnParent"
  case f_ColumnParent_column_family record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("column_family",T_STRING,3)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_ColumnParent_super_column record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("super_column",T_STRING,4)
    writeBinary oprot _v
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_ColumnParent_fields iprot record = do
  (_,_t75,_id76) <- readFieldBegin iprot
  if _t75 == T_STOP then return record else
    case _id76 of 
      3 -> if _t75 == T_STRING then do
        s <- readString iprot
        read_ColumnParent_fields iprot record{f_ColumnParent_column_family=Just s}
        else do
          skip iprot _t75
          read_ColumnParent_fields iprot record
      4 -> if _t75 == T_STRING then do
        s <- readBinary iprot
        read_ColumnParent_fields iprot record{f_ColumnParent_super_column=Just s}
        else do
          skip iprot _t75
          read_ColumnParent_fields iprot record
      _ -> do
        skip iprot _t75
        readFieldEnd iprot
        read_ColumnParent_fields iprot record
read_ColumnParent iprot = do
  _ <- readStructBegin iprot
  record <- read_ColumnParent_fields iprot (ColumnParent{f_ColumnParent_column_family=Nothing,f_ColumnParent_super_column=Nothing})
  readStructEnd iprot
  return record
data ColumnPath = ColumnPath{f_ColumnPath_column_family :: Maybe String,f_ColumnPath_super_column :: Maybe ByteString,f_ColumnPath_column :: Maybe ByteString} deriving (Show,Eq,Ord,Typeable)
write_ColumnPath oprot record = do
  writeStructBegin oprot "ColumnPath"
  case f_ColumnPath_column_family record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("column_family",T_STRING,3)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_ColumnPath_super_column record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("super_column",T_STRING,4)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_ColumnPath_column record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("column",T_STRING,5)
    writeBinary oprot _v
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_ColumnPath_fields iprot record = do
  (_,_t80,_id81) <- readFieldBegin iprot
  if _t80 == T_STOP then return record else
    case _id81 of 
      3 -> if _t80 == T_STRING then do
        s <- readString iprot
        read_ColumnPath_fields iprot record{f_ColumnPath_column_family=Just s}
        else do
          skip iprot _t80
          read_ColumnPath_fields iprot record
      4 -> if _t80 == T_STRING then do
        s <- readBinary iprot
        read_ColumnPath_fields iprot record{f_ColumnPath_super_column=Just s}
        else do
          skip iprot _t80
          read_ColumnPath_fields iprot record
      5 -> if _t80 == T_STRING then do
        s <- readBinary iprot
        read_ColumnPath_fields iprot record{f_ColumnPath_column=Just s}
        else do
          skip iprot _t80
          read_ColumnPath_fields iprot record
      _ -> do
        skip iprot _t80
        readFieldEnd iprot
        read_ColumnPath_fields iprot record
read_ColumnPath iprot = do
  _ <- readStructBegin iprot
  record <- read_ColumnPath_fields iprot (ColumnPath{f_ColumnPath_column_family=Nothing,f_ColumnPath_super_column=Nothing,f_ColumnPath_column=Nothing})
  readStructEnd iprot
  return record
data SliceRange = SliceRange{f_SliceRange_start :: Maybe ByteString,f_SliceRange_finish :: Maybe ByteString,f_SliceRange_reversed :: Maybe Bool,f_SliceRange_count :: Maybe Int32} deriving (Show,Eq,Ord,Typeable)
write_SliceRange oprot record = do
  writeStructBegin oprot "SliceRange"
  case f_SliceRange_start record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("start",T_STRING,1)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_SliceRange_finish record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("finish",T_STRING,2)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_SliceRange_reversed record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("reversed",T_BOOL,3)
    writeBool oprot _v
    writeFieldEnd oprot}
  case f_SliceRange_count record 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 record = do
  (_,_t85,_id86) <- readFieldBegin iprot
  if _t85 == T_STOP then return record else
    case _id86 of 
      1 -> if _t85 == T_STRING then do
        s <- readBinary iprot
        read_SliceRange_fields iprot record{f_SliceRange_start=Just s}
        else do
          skip iprot _t85
          read_SliceRange_fields iprot record
      2 -> if _t85 == T_STRING then do
        s <- readBinary iprot
        read_SliceRange_fields iprot record{f_SliceRange_finish=Just s}
        else do
          skip iprot _t85
          read_SliceRange_fields iprot record
      3 -> if _t85 == T_BOOL then do
        s <- readBool iprot
        read_SliceRange_fields iprot record{f_SliceRange_reversed=Just s}
        else do
          skip iprot _t85
          read_SliceRange_fields iprot record
      4 -> if _t85 == T_I32 then do
        s <- readI32 iprot
        read_SliceRange_fields iprot record{f_SliceRange_count=Just s}
        else do
          skip iprot _t85
          read_SliceRange_fields iprot record
      _ -> do
        skip iprot _t85
        readFieldEnd iprot
        read_SliceRange_fields iprot record
read_SliceRange iprot = do
  _ <- readStructBegin iprot
  record <- read_SliceRange_fields iprot (SliceRange{f_SliceRange_start=Nothing,f_SliceRange_finish=Nothing,f_SliceRange_reversed=Nothing,f_SliceRange_count=Nothing})
  readStructEnd iprot
  return record
data SlicePredicate = SlicePredicate{f_SlicePredicate_column_names :: Maybe [ByteString],f_SlicePredicate_slice_range :: Maybe SliceRange} deriving (Show,Eq,Ord,Typeable)
write_SlicePredicate oprot record = do
  writeStructBegin oprot "SlicePredicate"
  case f_SlicePredicate_column_names record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("column_names",T_LIST,1)
    (let {f [] = return (); f (_viter89:t) = do {writeBinary oprot _viter89;f t}} in do {writeListBegin oprot (T_STRING,fromIntegral $ Prelude.length _v); f _v;writeListEnd oprot})
    writeFieldEnd oprot}
  case f_SlicePredicate_slice_range record 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 record = do
  (_,_t91,_id92) <- readFieldBegin iprot
  if _t91 == T_STOP then return record else
    case _id92 of 
      1 -> if _t91 == T_LIST then do
        s <- (let {f 0 = return []; f n = do {v <- readBinary iprot;r <- f (n-1); return $ v:r}} in do {(_etype96,_size93) <- readListBegin iprot; f _size93})
        read_SlicePredicate_fields iprot record{f_SlicePredicate_column_names=Just s}
        else do
          skip iprot _t91
          read_SlicePredicate_fields iprot record
      2 -> if _t91 == T_STRUCT then do
        s <- (read_SliceRange iprot)
        read_SlicePredicate_fields iprot record{f_SlicePredicate_slice_range=Just s}
        else do
          skip iprot _t91
          read_SlicePredicate_fields iprot record
      _ -> do
        skip iprot _t91
        readFieldEnd iprot
        read_SlicePredicate_fields iprot record
read_SlicePredicate iprot = do
  _ <- readStructBegin iprot
  record <- read_SlicePredicate_fields iprot (SlicePredicate{f_SlicePredicate_column_names=Nothing,f_SlicePredicate_slice_range=Nothing})
  readStructEnd iprot
  return record
data IndexExpression = IndexExpression{f_IndexExpression_column_name :: Maybe ByteString,f_IndexExpression_op :: Maybe IndexOperator,f_IndexExpression_value :: Maybe ByteString} deriving (Show,Eq,Ord,Typeable)
write_IndexExpression oprot record = do
  writeStructBegin oprot "IndexExpression"
  case f_IndexExpression_column_name record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("column_name",T_STRING,1)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_IndexExpression_op record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("op",T_I32,2)
    writeI32 oprot (fromIntegral $ fromEnum _v)
    writeFieldEnd oprot}
  case f_IndexExpression_value record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("value",T_STRING,3)
    writeBinary oprot _v
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_IndexExpression_fields iprot record = do
  (_,_t101,_id102) <- readFieldBegin iprot
  if _t101 == T_STOP then return record else
    case _id102 of 
      1 -> if _t101 == T_STRING then do
        s <- readBinary iprot
        read_IndexExpression_fields iprot record{f_IndexExpression_column_name=Just s}
        else do
          skip iprot _t101
          read_IndexExpression_fields iprot record
      2 -> if _t101 == T_I32 then do
        s <- (do {i <- readI32 iprot; return $ toEnum $ fromIntegral i})
        read_IndexExpression_fields iprot record{f_IndexExpression_op=Just s}
        else do
          skip iprot _t101
          read_IndexExpression_fields iprot record
      3 -> if _t101 == T_STRING then do
        s <- readBinary iprot
        read_IndexExpression_fields iprot record{f_IndexExpression_value=Just s}
        else do
          skip iprot _t101
          read_IndexExpression_fields iprot record
      _ -> do
        skip iprot _t101
        readFieldEnd iprot
        read_IndexExpression_fields iprot record
read_IndexExpression iprot = do
  _ <- readStructBegin iprot
  record <- read_IndexExpression_fields iprot (IndexExpression{f_IndexExpression_column_name=Nothing,f_IndexExpression_op=Nothing,f_IndexExpression_value=Nothing})
  readStructEnd iprot
  return record
data IndexClause = IndexClause{f_IndexClause_expressions :: Maybe [IndexExpression],f_IndexClause_start_key :: Maybe ByteString,f_IndexClause_count :: Maybe Int32} deriving (Show,Eq,Ord,Typeable)
write_IndexClause oprot record = do
  writeStructBegin oprot "IndexClause"
  case f_IndexClause_expressions record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("expressions",T_LIST,1)
    (let {f [] = return (); f (_viter105:t) = do {write_IndexExpression oprot _viter105;f t}} in do {writeListBegin oprot (T_STRUCT,fromIntegral $ Prelude.length _v); f _v;writeListEnd oprot})
    writeFieldEnd oprot}
  case f_IndexClause_start_key record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("start_key",T_STRING,2)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_IndexClause_count record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("count",T_I32,3)
    writeI32 oprot _v
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_IndexClause_fields iprot record = do
  (_,_t107,_id108) <- readFieldBegin iprot
  if _t107 == T_STOP then return record else
    case _id108 of 
      1 -> if _t107 == T_LIST then do
        s <- (let {f 0 = return []; f n = do {v <- (read_IndexExpression iprot);r <- f (n-1); return $ v:r}} in do {(_etype112,_size109) <- readListBegin iprot; f _size109})
        read_IndexClause_fields iprot record{f_IndexClause_expressions=Just s}
        else do
          skip iprot _t107
          read_IndexClause_fields iprot record
      2 -> if _t107 == T_STRING then do
        s <- readBinary iprot
        read_IndexClause_fields iprot record{f_IndexClause_start_key=Just s}
        else do
          skip iprot _t107
          read_IndexClause_fields iprot record
      3 -> if _t107 == T_I32 then do
        s <- readI32 iprot
        read_IndexClause_fields iprot record{f_IndexClause_count=Just s}
        else do
          skip iprot _t107
          read_IndexClause_fields iprot record
      _ -> do
        skip iprot _t107
        readFieldEnd iprot
        read_IndexClause_fields iprot record
read_IndexClause iprot = do
  _ <- readStructBegin iprot
  record <- read_IndexClause_fields iprot (IndexClause{f_IndexClause_expressions=Nothing,f_IndexClause_start_key=Nothing,f_IndexClause_count=Nothing})
  readStructEnd iprot
  return record
data KeyRange = KeyRange{f_KeyRange_start_key :: Maybe ByteString,f_KeyRange_end_key :: Maybe ByteString,f_KeyRange_start_token :: Maybe String,f_KeyRange_end_token :: Maybe String,f_KeyRange_count :: Maybe Int32} deriving (Show,Eq,Ord,Typeable)
write_KeyRange oprot record = do
  writeStructBegin oprot "KeyRange"
  case f_KeyRange_start_key record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("start_key",T_STRING,1)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_KeyRange_end_key record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("end_key",T_STRING,2)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_KeyRange_start_token record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("start_token",T_STRING,3)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_KeyRange_end_token record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("end_token",T_STRING,4)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_KeyRange_count record 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 record = do
  (_,_t117,_id118) <- readFieldBegin iprot
  if _t117 == T_STOP then return record else
    case _id118 of 
      1 -> if _t117 == T_STRING then do
        s <- readBinary iprot
        read_KeyRange_fields iprot record{f_KeyRange_start_key=Just s}
        else do
          skip iprot _t117
          read_KeyRange_fields iprot record
      2 -> if _t117 == T_STRING then do
        s <- readBinary iprot
        read_KeyRange_fields iprot record{f_KeyRange_end_key=Just s}
        else do
          skip iprot _t117
          read_KeyRange_fields iprot record
      3 -> if _t117 == T_STRING then do
        s <- readString iprot
        read_KeyRange_fields iprot record{f_KeyRange_start_token=Just s}
        else do
          skip iprot _t117
          read_KeyRange_fields iprot record
      4 -> if _t117 == T_STRING then do
        s <- readString iprot
        read_KeyRange_fields iprot record{f_KeyRange_end_token=Just s}
        else do
          skip iprot _t117
          read_KeyRange_fields iprot record
      5 -> if _t117 == T_I32 then do
        s <- readI32 iprot
        read_KeyRange_fields iprot record{f_KeyRange_count=Just s}
        else do
          skip iprot _t117
          read_KeyRange_fields iprot record
      _ -> do
        skip iprot _t117
        readFieldEnd iprot
        read_KeyRange_fields iprot record
read_KeyRange iprot = do
  _ <- readStructBegin iprot
  record <- 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 record
data KeySlice = KeySlice{f_KeySlice_key :: Maybe ByteString,f_KeySlice_columns :: Maybe [ColumnOrSuperColumn]} deriving (Show,Eq,Ord,Typeable)
write_KeySlice oprot record = do
  writeStructBegin oprot "KeySlice"
  case f_KeySlice_key record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("key",T_STRING,1)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_KeySlice_columns record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("columns",T_LIST,2)
    (let {f [] = return (); f (_viter121:t) = do {write_ColumnOrSuperColumn oprot _viter121;f t}} in do {writeListBegin oprot (T_STRUCT,fromIntegral $ Prelude.length _v); f _v;writeListEnd oprot})
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_KeySlice_fields iprot record = do
  (_,_t123,_id124) <- readFieldBegin iprot
  if _t123 == T_STOP then return record else
    case _id124 of 
      1 -> if _t123 == T_STRING then do
        s <- readBinary iprot
        read_KeySlice_fields iprot record{f_KeySlice_key=Just s}
        else do
          skip iprot _t123
          read_KeySlice_fields iprot record
      2 -> if _t123 == T_LIST then do
        s <- (let {f 0 = return []; f n = do {v <- (read_ColumnOrSuperColumn iprot);r <- f (n-1); return $ v:r}} in do {(_etype128,_size125) <- readListBegin iprot; f _size125})
        read_KeySlice_fields iprot record{f_KeySlice_columns=Just s}
        else do
          skip iprot _t123
          read_KeySlice_fields iprot record
      _ -> do
        skip iprot _t123
        readFieldEnd iprot
        read_KeySlice_fields iprot record
read_KeySlice iprot = do
  _ <- readStructBegin iprot
  record <- read_KeySlice_fields iprot (KeySlice{f_KeySlice_key=Nothing,f_KeySlice_columns=Nothing})
  readStructEnd iprot
  return record
data KeyCount = KeyCount{f_KeyCount_key :: Maybe ByteString,f_KeyCount_count :: Maybe Int32} deriving (Show,Eq,Ord,Typeable)
write_KeyCount oprot record = do
  writeStructBegin oprot "KeyCount"
  case f_KeyCount_key record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("key",T_STRING,1)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_KeyCount_count record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("count",T_I32,2)
    writeI32 oprot _v
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_KeyCount_fields iprot record = do
  (_,_t133,_id134) <- readFieldBegin iprot
  if _t133 == T_STOP then return record else
    case _id134 of 
      1 -> if _t133 == T_STRING then do
        s <- readBinary iprot
        read_KeyCount_fields iprot record{f_KeyCount_key=Just s}
        else do
          skip iprot _t133
          read_KeyCount_fields iprot record
      2 -> if _t133 == T_I32 then do
        s <- readI32 iprot
        read_KeyCount_fields iprot record{f_KeyCount_count=Just s}
        else do
          skip iprot _t133
          read_KeyCount_fields iprot record
      _ -> do
        skip iprot _t133
        readFieldEnd iprot
        read_KeyCount_fields iprot record
read_KeyCount iprot = do
  _ <- readStructBegin iprot
  record <- read_KeyCount_fields iprot (KeyCount{f_KeyCount_key=Nothing,f_KeyCount_count=Nothing})
  readStructEnd iprot
  return record
data Deletion = Deletion{f_Deletion_timestamp :: Maybe Int64,f_Deletion_super_column :: Maybe ByteString,f_Deletion_predicate :: Maybe SlicePredicate} deriving (Show,Eq,Ord,Typeable)
write_Deletion oprot record = do
  writeStructBegin oprot "Deletion"
  case f_Deletion_timestamp record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("timestamp",T_I64,1)
    writeI64 oprot _v
    writeFieldEnd oprot}
  case f_Deletion_super_column record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("super_column",T_STRING,2)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_Deletion_predicate record 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 record = do
  (_,_t138,_id139) <- readFieldBegin iprot
  if _t138 == T_STOP then return record else
    case _id139 of 
      1 -> if _t138 == T_I64 then do
        s <- readI64 iprot
        read_Deletion_fields iprot record{f_Deletion_timestamp=Just s}
        else do
          skip iprot _t138
          read_Deletion_fields iprot record
      2 -> if _t138 == T_STRING then do
        s <- readBinary iprot
        read_Deletion_fields iprot record{f_Deletion_super_column=Just s}
        else do
          skip iprot _t138
          read_Deletion_fields iprot record
      3 -> if _t138 == T_STRUCT then do
        s <- (read_SlicePredicate iprot)
        read_Deletion_fields iprot record{f_Deletion_predicate=Just s}
        else do
          skip iprot _t138
          read_Deletion_fields iprot record
      _ -> do
        skip iprot _t138
        readFieldEnd iprot
        read_Deletion_fields iprot record
read_Deletion iprot = do
  _ <- readStructBegin iprot
  record <- read_Deletion_fields iprot (Deletion{f_Deletion_timestamp=Nothing,f_Deletion_super_column=Nothing,f_Deletion_predicate=Nothing})
  readStructEnd iprot
  return record
data Mutation = Mutation{f_Mutation_column_or_supercolumn :: Maybe ColumnOrSuperColumn,f_Mutation_deletion :: Maybe Deletion} deriving (Show,Eq,Ord,Typeable)
write_Mutation oprot record = do
  writeStructBegin oprot "Mutation"
  case f_Mutation_column_or_supercolumn record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("column_or_supercolumn",T_STRUCT,1)
    write_ColumnOrSuperColumn oprot _v
    writeFieldEnd oprot}
  case f_Mutation_deletion record 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 record = do
  (_,_t143,_id144) <- readFieldBegin iprot
  if _t143 == T_STOP then return record else
    case _id144 of 
      1 -> if _t143 == T_STRUCT then do
        s <- (read_ColumnOrSuperColumn iprot)
        read_Mutation_fields iprot record{f_Mutation_column_or_supercolumn=Just s}
        else do
          skip iprot _t143
          read_Mutation_fields iprot record
      2 -> if _t143 == T_STRUCT then do
        s <- (read_Deletion iprot)
        read_Mutation_fields iprot record{f_Mutation_deletion=Just s}
        else do
          skip iprot _t143
          read_Mutation_fields iprot record
      _ -> do
        skip iprot _t143
        readFieldEnd iprot
        read_Mutation_fields iprot record
read_Mutation iprot = do
  _ <- readStructBegin iprot
  record <- read_Mutation_fields iprot (Mutation{f_Mutation_column_or_supercolumn=Nothing,f_Mutation_deletion=Nothing})
  readStructEnd iprot
  return record
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 record = do
  writeStructBegin oprot "TokenRange"
  case f_TokenRange_start_token record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("start_token",T_STRING,1)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_TokenRange_end_token record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("end_token",T_STRING,2)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_TokenRange_endpoints record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("endpoints",T_LIST,3)
    (let {f [] = return (); f (_viter147:t) = do {writeString oprot _viter147;f t}} in do {writeListBegin oprot (T_STRING,fromIntegral $ Prelude.length _v); f _v;writeListEnd oprot})
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_TokenRange_fields iprot record = do
  (_,_t149,_id150) <- readFieldBegin iprot
  if _t149 == T_STOP then return record else
    case _id150 of 
      1 -> if _t149 == T_STRING then do
        s <- readString iprot
        read_TokenRange_fields iprot record{f_TokenRange_start_token=Just s}
        else do
          skip iprot _t149
          read_TokenRange_fields iprot record
      2 -> if _t149 == T_STRING then do
        s <- readString iprot
        read_TokenRange_fields iprot record{f_TokenRange_end_token=Just s}
        else do
          skip iprot _t149
          read_TokenRange_fields iprot record
      3 -> if _t149 == T_LIST then do
        s <- (let {f 0 = return []; f n = do {v <- readString iprot;r <- f (n-1); return $ v:r}} in do {(_etype154,_size151) <- readListBegin iprot; f _size151})
        read_TokenRange_fields iprot record{f_TokenRange_endpoints=Just s}
        else do
          skip iprot _t149
          read_TokenRange_fields iprot record
      _ -> do
        skip iprot _t149
        readFieldEnd iprot
        read_TokenRange_fields iprot record
read_TokenRange iprot = do
  _ <- readStructBegin iprot
  record <- read_TokenRange_fields iprot (TokenRange{f_TokenRange_start_token=Nothing,f_TokenRange_end_token=Nothing,f_TokenRange_endpoints=Nothing})
  readStructEnd iprot
  return record
data AuthenticationRequest = AuthenticationRequest{f_AuthenticationRequest_credentials :: Maybe (Map.Map String String)} deriving (Show,Eq,Ord,Typeable)
write_AuthenticationRequest oprot record = do
  writeStructBegin oprot "AuthenticationRequest"
  case f_AuthenticationRequest_credentials record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("credentials",T_MAP,1)
    (let {f [] = return (); f ((_kiter158,_viter159):t) = do {do {writeString oprot _kiter158;writeString oprot _viter159};f t}} in do {writeMapBegin oprot (T_STRING,T_STRING,fromIntegral $ Map.size _v); f (Map.toList _v);writeMapEnd oprot})
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_AuthenticationRequest_fields iprot record = do
  (_,_t161,_id162) <- readFieldBegin iprot
  if _t161 == T_STOP then return record else
    case _id162 of 
      1 -> if _t161 == T_MAP then do
        s <- (let {f 0 = return []; f n = do {k <- readString iprot; v <- readString iprot;r <- f (n-1); return $ (k,v):r}} in do {(_ktype164,_vtype165,_size163) <- readMapBegin iprot; l <- f _size163; return $ Map.fromList l})
        read_AuthenticationRequest_fields iprot record{f_AuthenticationRequest_credentials=Just s}
        else do
          skip iprot _t161
          read_AuthenticationRequest_fields iprot record
      _ -> do
        skip iprot _t161
        readFieldEnd iprot
        read_AuthenticationRequest_fields iprot record
read_AuthenticationRequest iprot = do
  _ <- readStructBegin iprot
  record <- read_AuthenticationRequest_fields iprot (AuthenticationRequest{f_AuthenticationRequest_credentials=Nothing})
  readStructEnd iprot
  return record
data ColumnDef = ColumnDef{f_ColumnDef_name :: Maybe ByteString,f_ColumnDef_validation_class :: Maybe String,f_ColumnDef_index_type :: Maybe IndexType,f_ColumnDef_index_name :: Maybe String} deriving (Show,Eq,Ord,Typeable)
write_ColumnDef oprot record = do
  writeStructBegin oprot "ColumnDef"
  case f_ColumnDef_name record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("name",T_STRING,1)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_ColumnDef_validation_class record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("validation_class",T_STRING,2)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_ColumnDef_index_type record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("index_type",T_I32,3)
    writeI32 oprot (fromIntegral $ fromEnum _v)
    writeFieldEnd oprot}
  case f_ColumnDef_index_name record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("index_name",T_STRING,4)
    writeString oprot _v
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_ColumnDef_fields iprot record = do
  (_,_t171,_id172) <- readFieldBegin iprot
  if _t171 == T_STOP then return record else
    case _id172 of 
      1 -> if _t171 == T_STRING then do
        s <- readBinary iprot
        read_ColumnDef_fields iprot record{f_ColumnDef_name=Just s}
        else do
          skip iprot _t171
          read_ColumnDef_fields iprot record
      2 -> if _t171 == T_STRING then do
        s <- readString iprot
        read_ColumnDef_fields iprot record{f_ColumnDef_validation_class=Just s}
        else do
          skip iprot _t171
          read_ColumnDef_fields iprot record
      3 -> if _t171 == T_I32 then do
        s <- (do {i <- readI32 iprot; return $ toEnum $ fromIntegral i})
        read_ColumnDef_fields iprot record{f_ColumnDef_index_type=Just s}
        else do
          skip iprot _t171
          read_ColumnDef_fields iprot record
      4 -> if _t171 == T_STRING then do
        s <- readString iprot
        read_ColumnDef_fields iprot record{f_ColumnDef_index_name=Just s}
        else do
          skip iprot _t171
          read_ColumnDef_fields iprot record
      _ -> do
        skip iprot _t171
        readFieldEnd iprot
        read_ColumnDef_fields iprot record
read_ColumnDef iprot = do
  _ <- readStructBegin iprot
  record <- read_ColumnDef_fields iprot (ColumnDef{f_ColumnDef_name=Nothing,f_ColumnDef_validation_class=Nothing,f_ColumnDef_index_type=Nothing,f_ColumnDef_index_name=Nothing})
  readStructEnd iprot
  return record
data CfDef = CfDef{f_CfDef_keyspace :: Maybe String,f_CfDef_name :: Maybe String,f_CfDef_column_type :: Maybe String,f_CfDef_comparator_type :: Maybe String,f_CfDef_subcomparator_type :: Maybe String,f_CfDef_comment :: Maybe String,f_CfDef_row_cache_size :: Maybe Double,f_CfDef_key_cache_size :: Maybe Double,f_CfDef_read_repair_chance :: Maybe Double,f_CfDef_column_metadata :: Maybe [ColumnDef],f_CfDef_gc_grace_seconds :: Maybe Int32,f_CfDef_default_validation_class :: Maybe String,f_CfDef_id :: Maybe Int32,f_CfDef_min_compaction_threshold :: Maybe Int32,f_CfDef_max_compaction_threshold :: Maybe Int32,f_CfDef_row_cache_save_period_in_seconds :: Maybe Int32,f_CfDef_key_cache_save_period_in_seconds :: Maybe Int32,f_CfDef_memtable_flush_after_mins :: Maybe Int32,f_CfDef_memtable_throughput_in_mb :: Maybe Int32,f_CfDef_memtable_operations_in_millions :: Maybe Double,f_CfDef_replicate_on_write :: Maybe Bool,f_CfDef_merge_shards_chance :: Maybe Double,f_CfDef_key_validation_class :: Maybe String,f_CfDef_row_cache_provider :: Maybe String,f_CfDef_key_alias :: Maybe ByteString} deriving (Show,Eq,Ord,Typeable)
write_CfDef oprot record = do
  writeStructBegin oprot "CfDef"
  case f_CfDef_keyspace record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("keyspace",T_STRING,1)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_CfDef_name record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("name",T_STRING,2)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_CfDef_column_type record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("column_type",T_STRING,3)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_CfDef_comparator_type record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("comparator_type",T_STRING,5)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_CfDef_subcomparator_type record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("subcomparator_type",T_STRING,6)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_CfDef_comment record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("comment",T_STRING,8)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_CfDef_row_cache_size record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("row_cache_size",T_DOUBLE,9)
    writeDouble oprot _v
    writeFieldEnd oprot}
  case f_CfDef_key_cache_size record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("key_cache_size",T_DOUBLE,11)
    writeDouble oprot _v
    writeFieldEnd oprot}
  case f_CfDef_read_repair_chance record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("read_repair_chance",T_DOUBLE,12)
    writeDouble oprot _v
    writeFieldEnd oprot}
  case f_CfDef_column_metadata record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("column_metadata",T_LIST,13)
    (let {f [] = return (); f (_viter175:t) = do {write_ColumnDef oprot _viter175;f t}} in do {writeListBegin oprot (T_STRUCT,fromIntegral $ Prelude.length _v); f _v;writeListEnd oprot})
    writeFieldEnd oprot}
  case f_CfDef_gc_grace_seconds record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("gc_grace_seconds",T_I32,14)
    writeI32 oprot _v
    writeFieldEnd oprot}
  case f_CfDef_default_validation_class record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("default_validation_class",T_STRING,15)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_CfDef_id record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("id",T_I32,16)
    writeI32 oprot _v
    writeFieldEnd oprot}
  case f_CfDef_min_compaction_threshold record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("min_compaction_threshold",T_I32,17)
    writeI32 oprot _v
    writeFieldEnd oprot}
  case f_CfDef_max_compaction_threshold record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("max_compaction_threshold",T_I32,18)
    writeI32 oprot _v
    writeFieldEnd oprot}
  case f_CfDef_row_cache_save_period_in_seconds record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("row_cache_save_period_in_seconds",T_I32,19)
    writeI32 oprot _v
    writeFieldEnd oprot}
  case f_CfDef_key_cache_save_period_in_seconds record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("key_cache_save_period_in_seconds",T_I32,20)
    writeI32 oprot _v
    writeFieldEnd oprot}
  case f_CfDef_memtable_flush_after_mins record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("memtable_flush_after_mins",T_I32,21)
    writeI32 oprot _v
    writeFieldEnd oprot}
  case f_CfDef_memtable_throughput_in_mb record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("memtable_throughput_in_mb",T_I32,22)
    writeI32 oprot _v
    writeFieldEnd oprot}
  case f_CfDef_memtable_operations_in_millions record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("memtable_operations_in_millions",T_DOUBLE,23)
    writeDouble oprot _v
    writeFieldEnd oprot}
  case f_CfDef_replicate_on_write record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("replicate_on_write",T_BOOL,24)
    writeBool oprot _v
    writeFieldEnd oprot}
  case f_CfDef_merge_shards_chance record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("merge_shards_chance",T_DOUBLE,25)
    writeDouble oprot _v
    writeFieldEnd oprot}
  case f_CfDef_key_validation_class record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("key_validation_class",T_STRING,26)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_CfDef_row_cache_provider record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("row_cache_provider",T_STRING,27)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_CfDef_key_alias record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("key_alias",T_STRING,28)
    writeBinary oprot _v
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_CfDef_fields iprot record = do
  (_,_t177,_id178) <- readFieldBegin iprot
  if _t177 == T_STOP then return record else
    case _id178 of 
      1 -> if _t177 == T_STRING then do
        s <- readString iprot
        read_CfDef_fields iprot record{f_CfDef_keyspace=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      2 -> if _t177 == T_STRING then do
        s <- readString iprot
        read_CfDef_fields iprot record{f_CfDef_name=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      3 -> if _t177 == T_STRING then do
        s <- readString iprot
        read_CfDef_fields iprot record{f_CfDef_column_type=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      5 -> if _t177 == T_STRING then do
        s <- readString iprot
        read_CfDef_fields iprot record{f_CfDef_comparator_type=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      6 -> if _t177 == T_STRING then do
        s <- readString iprot
        read_CfDef_fields iprot record{f_CfDef_subcomparator_type=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      8 -> if _t177 == T_STRING then do
        s <- readString iprot
        read_CfDef_fields iprot record{f_CfDef_comment=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      9 -> if _t177 == T_DOUBLE then do
        s <- readDouble iprot
        read_CfDef_fields iprot record{f_CfDef_row_cache_size=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      11 -> if _t177 == T_DOUBLE then do
        s <- readDouble iprot
        read_CfDef_fields iprot record{f_CfDef_key_cache_size=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      12 -> if _t177 == T_DOUBLE then do
        s <- readDouble iprot
        read_CfDef_fields iprot record{f_CfDef_read_repair_chance=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      13 -> if _t177 == T_LIST then do
        s <- (let {f 0 = return []; f n = do {v <- (read_ColumnDef iprot);r <- f (n-1); return $ v:r}} in do {(_etype182,_size179) <- readListBegin iprot; f _size179})
        read_CfDef_fields iprot record{f_CfDef_column_metadata=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      14 -> if _t177 == T_I32 then do
        s <- readI32 iprot
        read_CfDef_fields iprot record{f_CfDef_gc_grace_seconds=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      15 -> if _t177 == T_STRING then do
        s <- readString iprot
        read_CfDef_fields iprot record{f_CfDef_default_validation_class=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      16 -> if _t177 == T_I32 then do
        s <- readI32 iprot
        read_CfDef_fields iprot record{f_CfDef_id=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      17 -> if _t177 == T_I32 then do
        s <- readI32 iprot
        read_CfDef_fields iprot record{f_CfDef_min_compaction_threshold=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      18 -> if _t177 == T_I32 then do
        s <- readI32 iprot
        read_CfDef_fields iprot record{f_CfDef_max_compaction_threshold=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      19 -> if _t177 == T_I32 then do
        s <- readI32 iprot
        read_CfDef_fields iprot record{f_CfDef_row_cache_save_period_in_seconds=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      20 -> if _t177 == T_I32 then do
        s <- readI32 iprot
        read_CfDef_fields iprot record{f_CfDef_key_cache_save_period_in_seconds=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      21 -> if _t177 == T_I32 then do
        s <- readI32 iprot
        read_CfDef_fields iprot record{f_CfDef_memtable_flush_after_mins=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      22 -> if _t177 == T_I32 then do
        s <- readI32 iprot
        read_CfDef_fields iprot record{f_CfDef_memtable_throughput_in_mb=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      23 -> if _t177 == T_DOUBLE then do
        s <- readDouble iprot
        read_CfDef_fields iprot record{f_CfDef_memtable_operations_in_millions=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      24 -> if _t177 == T_BOOL then do
        s <- readBool iprot
        read_CfDef_fields iprot record{f_CfDef_replicate_on_write=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      25 -> if _t177 == T_DOUBLE then do
        s <- readDouble iprot
        read_CfDef_fields iprot record{f_CfDef_merge_shards_chance=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      26 -> if _t177 == T_STRING then do
        s <- readString iprot
        read_CfDef_fields iprot record{f_CfDef_key_validation_class=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      27 -> if _t177 == T_STRING then do
        s <- readString iprot
        read_CfDef_fields iprot record{f_CfDef_row_cache_provider=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      28 -> if _t177 == T_STRING then do
        s <- readBinary iprot
        read_CfDef_fields iprot record{f_CfDef_key_alias=Just s}
        else do
          skip iprot _t177
          read_CfDef_fields iprot record
      _ -> do
        skip iprot _t177
        readFieldEnd iprot
        read_CfDef_fields iprot record
read_CfDef iprot = do
  _ <- readStructBegin iprot
  record <- read_CfDef_fields iprot (CfDef{f_CfDef_keyspace=Nothing,f_CfDef_name=Nothing,f_CfDef_column_type=Nothing,f_CfDef_comparator_type=Nothing,f_CfDef_subcomparator_type=Nothing,f_CfDef_comment=Nothing,f_CfDef_row_cache_size=Nothing,f_CfDef_key_cache_size=Nothing,f_CfDef_read_repair_chance=Nothing,f_CfDef_column_metadata=Nothing,f_CfDef_gc_grace_seconds=Nothing,f_CfDef_default_validation_class=Nothing,f_CfDef_id=Nothing,f_CfDef_min_compaction_threshold=Nothing,f_CfDef_max_compaction_threshold=Nothing,f_CfDef_row_cache_save_period_in_seconds=Nothing,f_CfDef_key_cache_save_period_in_seconds=Nothing,f_CfDef_memtable_flush_after_mins=Nothing,f_CfDef_memtable_throughput_in_mb=Nothing,f_CfDef_memtable_operations_in_millions=Nothing,f_CfDef_replicate_on_write=Nothing,f_CfDef_merge_shards_chance=Nothing,f_CfDef_key_validation_class=Nothing,f_CfDef_row_cache_provider=Nothing,f_CfDef_key_alias=Nothing})
  readStructEnd iprot
  return record
data KsDef = KsDef{f_KsDef_name :: Maybe String,f_KsDef_strategy_class :: Maybe String,f_KsDef_strategy_options :: Maybe (Map.Map String String),f_KsDef_replication_factor :: Maybe Int32,f_KsDef_cf_defs :: Maybe [CfDef],f_KsDef_durable_writes :: Maybe Bool} deriving (Show,Eq,Ord,Typeable)
write_KsDef oprot record = do
  writeStructBegin oprot "KsDef"
  case f_KsDef_name record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("name",T_STRING,1)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_KsDef_strategy_class record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("strategy_class",T_STRING,2)
    writeString oprot _v
    writeFieldEnd oprot}
  case f_KsDef_strategy_options record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("strategy_options",T_MAP,3)
    (let {f [] = return (); f ((_kiter186,_viter187):t) = do {do {writeString oprot _kiter186;writeString oprot _viter187};f t}} in do {writeMapBegin oprot (T_STRING,T_STRING,fromIntegral $ Map.size _v); f (Map.toList _v);writeMapEnd oprot})
    writeFieldEnd oprot}
  case f_KsDef_replication_factor record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("replication_factor",T_I32,4)
    writeI32 oprot _v
    writeFieldEnd oprot}
  case f_KsDef_cf_defs record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("cf_defs",T_LIST,5)
    (let {f [] = return (); f (_viter188:t) = do {write_CfDef oprot _viter188;f t}} in do {writeListBegin oprot (T_STRUCT,fromIntegral $ Prelude.length _v); f _v;writeListEnd oprot})
    writeFieldEnd oprot}
  case f_KsDef_durable_writes record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("durable_writes",T_BOOL,6)
    writeBool oprot _v
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_KsDef_fields iprot record = do
  (_,_t190,_id191) <- readFieldBegin iprot
  if _t190 == T_STOP then return record else
    case _id191 of 
      1 -> if _t190 == T_STRING then do
        s <- readString iprot
        read_KsDef_fields iprot record{f_KsDef_name=Just s}
        else do
          skip iprot _t190
          read_KsDef_fields iprot record
      2 -> if _t190 == T_STRING then do
        s <- readString iprot
        read_KsDef_fields iprot record{f_KsDef_strategy_class=Just s}
        else do
          skip iprot _t190
          read_KsDef_fields iprot record
      3 -> if _t190 == T_MAP then do
        s <- (let {f 0 = return []; f n = do {k <- readString iprot; v <- readString iprot;r <- f (n-1); return $ (k,v):r}} in do {(_ktype193,_vtype194,_size192) <- readMapBegin iprot; l <- f _size192; return $ Map.fromList l})
        read_KsDef_fields iprot record{f_KsDef_strategy_options=Just s}
        else do
          skip iprot _t190
          read_KsDef_fields iprot record
      4 -> if _t190 == T_I32 then do
        s <- readI32 iprot
        read_KsDef_fields iprot record{f_KsDef_replication_factor=Just s}
        else do
          skip iprot _t190
          read_KsDef_fields iprot record
      5 -> if _t190 == T_LIST then do
        s <- (let {f 0 = return []; f n = do {v <- (read_CfDef iprot);r <- f (n-1); return $ v:r}} in do {(_etype200,_size197) <- readListBegin iprot; f _size197})
        read_KsDef_fields iprot record{f_KsDef_cf_defs=Just s}
        else do
          skip iprot _t190
          read_KsDef_fields iprot record
      6 -> if _t190 == T_BOOL then do
        s <- readBool iprot
        read_KsDef_fields iprot record{f_KsDef_durable_writes=Just s}
        else do
          skip iprot _t190
          read_KsDef_fields iprot record
      _ -> do
        skip iprot _t190
        readFieldEnd iprot
        read_KsDef_fields iprot record
read_KsDef iprot = do
  _ <- readStructBegin iprot
  record <- read_KsDef_fields iprot (KsDef{f_KsDef_name=Nothing,f_KsDef_strategy_class=Nothing,f_KsDef_strategy_options=Nothing,f_KsDef_replication_factor=Nothing,f_KsDef_cf_defs=Nothing,f_KsDef_durable_writes=Nothing})
  readStructEnd iprot
  return record
data CqlRow = CqlRow{f_CqlRow_key :: Maybe ByteString,f_CqlRow_columns :: Maybe [Column]} deriving (Show,Eq,Ord,Typeable)
write_CqlRow oprot record = do
  writeStructBegin oprot "CqlRow"
  case f_CqlRow_key record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("key",T_STRING,1)
    writeBinary oprot _v
    writeFieldEnd oprot}
  case f_CqlRow_columns record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("columns",T_LIST,2)
    (let {f [] = return (); f (_viter204:t) = do {write_Column oprot _viter204;f t}} in do {writeListBegin oprot (T_STRUCT,fromIntegral $ Prelude.length _v); f _v;writeListEnd oprot})
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_CqlRow_fields iprot record = do
  (_,_t206,_id207) <- readFieldBegin iprot
  if _t206 == T_STOP then return record else
    case _id207 of 
      1 -> if _t206 == T_STRING then do
        s <- readBinary iprot
        read_CqlRow_fields iprot record{f_CqlRow_key=Just s}
        else do
          skip iprot _t206
          read_CqlRow_fields iprot record
      2 -> if _t206 == T_LIST then do
        s <- (let {f 0 = return []; f n = do {v <- (read_Column iprot);r <- f (n-1); return $ v:r}} in do {(_etype211,_size208) <- readListBegin iprot; f _size208})
        read_CqlRow_fields iprot record{f_CqlRow_columns=Just s}
        else do
          skip iprot _t206
          read_CqlRow_fields iprot record
      _ -> do
        skip iprot _t206
        readFieldEnd iprot
        read_CqlRow_fields iprot record
read_CqlRow iprot = do
  _ <- readStructBegin iprot
  record <- read_CqlRow_fields iprot (CqlRow{f_CqlRow_key=Nothing,f_CqlRow_columns=Nothing})
  readStructEnd iprot
  return record
data CqlResult = CqlResult{f_CqlResult_type :: Maybe CqlResultType,f_CqlResult_rows :: Maybe [CqlRow],f_CqlResult_num :: Maybe Int32} deriving (Show,Eq,Ord,Typeable)
write_CqlResult oprot record = do
  writeStructBegin oprot "CqlResult"
  case f_CqlResult_type record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("type",T_I32,1)
    writeI32 oprot (fromIntegral $ fromEnum _v)
    writeFieldEnd oprot}
  case f_CqlResult_rows record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("rows",T_LIST,2)
    (let {f [] = return (); f (_viter215:t) = do {write_CqlRow oprot _viter215;f t}} in do {writeListBegin oprot (T_STRUCT,fromIntegral $ Prelude.length _v); f _v;writeListEnd oprot})
    writeFieldEnd oprot}
  case f_CqlResult_num record of {Nothing -> return (); Just _v -> do
    writeFieldBegin oprot ("num",T_I32,3)
    writeI32 oprot _v
    writeFieldEnd oprot}
  writeFieldStop oprot
  writeStructEnd oprot
read_CqlResult_fields iprot record = do
  (_,_t217,_id218) <- readFieldBegin iprot
  if _t217 == T_STOP then return record else
    case _id218 of 
      1 -> if _t217 == T_I32 then do
        s <- (do {i <- readI32 iprot; return $ toEnum $ fromIntegral i})
        read_CqlResult_fields iprot record{f_CqlResult_type=Just s}
        else do
          skip iprot _t217
          read_CqlResult_fields iprot record
      2 -> if _t217 == T_LIST then do
        s <- (let {f 0 = return []; f n = do {v <- (read_CqlRow iprot);r <- f (n-1); return $ v:r}} in do {(_etype222,_size219) <- readListBegin iprot; f _size219})
        read_CqlResult_fields iprot record{f_CqlResult_rows=Just s}
        else do
          skip iprot _t217
          read_CqlResult_fields iprot record
      3 -> if _t217 == T_I32 then do
        s <- readI32 iprot
        read_CqlResult_fields iprot record{f_CqlResult_num=Just s}
        else do
          skip iprot _t217
          read_CqlResult_fields iprot record
      _ -> do
        skip iprot _t217
        readFieldEnd iprot
        read_CqlResult_fields iprot record
read_CqlResult iprot = do
  _ <- readStructBegin iprot
  record <- read_CqlResult_fields iprot (CqlResult{f_CqlResult_type=Nothing,f_CqlResult_rows=Nothing,f_CqlResult_num=Nothing})
  readStructEnd iprot
  return record