{-# LANGUAGE TemplateHaskell #-}
-- |
module Strive.Types.Uploads
( UploadStatus (..),
)
where
import Data.Aeson.TH (deriveFromJSON)
import Data.Text (Text)
import Strive.Internal.TH (options)
-- |
data UploadStatus = UploadStatus
{ uploadStatus_activityId :: Maybe Integer,
uploadStatus_error :: Maybe Text,
uploadStatus_externalId :: Maybe Text,
uploadStatus_id :: Integer,
uploadStatus_status :: Text
}
deriving (Show)
$(deriveFromJSON options ''UploadStatus)