module Aws.Kinesis.Reshard.Exception
( InvalidRegionException(InvalidRegionException)
, _InvalidRegionException
, ireProposedRegion
, ireParsingError
, InvalidStreamNameException(InvalidStreamNameException)
, _InvalidStreamNameException
, isnProposedStreamName
, isnParsingError
, NoShardsFoundException(NoShardsFoundException)
, _NoShardsFoundException
, nsfeStreamName
, InvalidPartitionHashException(..)
, _InvalidPartitionHashRange
, _InvalidPartitionHash
) where
import Aws.Kinesis.Types
import Control.Exception.Lifted
import Control.Lens
import qualified Data.Text as T
import Data.Typeable
data InvalidRegionException
= InvalidRegionException
{ _ireProposedRegion ∷ !T.Text
, _ireParsingError ∷ !T.Text
} deriving (Eq, Typeable, Show)
instance Exception InvalidRegionException
makeLenses ''InvalidRegionException
makePrisms ''InvalidRegionException
data InvalidStreamNameException
= InvalidStreamNameException
{ _isnProposedStreamName ∷ !T.Text
, _isnParsingError ∷ !T.Text
} deriving (Eq, Typeable, Show)
instance Exception InvalidStreamNameException
makeLenses ''InvalidStreamNameException
makePrisms ''InvalidStreamNameException
newtype NoShardsFoundException
= NoShardsFoundException
{ _nsfeStreamName ∷ StreamName
} deriving (Eq, Typeable, Show)
instance Exception NoShardsFoundException
makeLenses ''NoShardsFoundException
makePrisms ''NoShardsFoundException
data InvalidPartitionHashException
= InvalidPartitionHashRange (PartitionHash, PartitionHash)
| InvalidPartitionHash Integer T.Text
deriving (Eq, Typeable, Show)
makePrisms ''InvalidPartitionHashException
instance Exception InvalidPartitionHashException