{-# LANGUAGE DeriveGeneric #-}

module Antiope.Messages.Types
  ( QueueUrl(..)
  , SQSError(..)
  ) where

import Data.String           (IsString)
import Data.Text             (Text)
import GHC.Generics
import Network.AWS.Data.Text (FromText (..), ToText (..))

data SQSError = DeleteMessageBatchError
  deriving (Eq, Show, Generic)

newtype QueueUrl = QueueUrl Text
  deriving (Show, Eq, IsString, FromText, ToText, Generic)