module Trajectory.Types where
import Control.Exception (IOException)
import Data.Data (Typeable, Data)
data Error =
HTTPConnectionError IOException
| ParseError String
| JsonError String
| UserError String
deriving (Show, Eq)
data Story = Story {
storyArchived :: Bool
,storyAssigneeId :: Maybe Int
,storyBranch :: Maybe String
,storyCreatedAt :: String
,storyDeleted :: Bool
,storyDesignNeeded :: Bool
,storyDevelopmentNeeded :: Bool
,storyId :: Int
,storyIdeaId :: Maybe Int
,storyIterationId :: Int
,storyPoints :: Int
,storyPosition :: Int
,storyState :: String
,storyTaskType :: String
,storyTitle :: String
,storyUpdatedAt :: String
,storyUserId :: Int
,storyCommentsCount :: Int
,storyAssigneeName :: Maybe String
,storyUserName :: String
,storyStateEvents :: [String]
,storyIdeaSubject :: Maybe String
} deriving (Show, Eq, Typeable, Data)
data Iteration = Iteration {
iterationAcceptedPoints :: Int
,iterationIsComplete :: Bool
,iterationCreatedAt :: String
,iterationEstimatedPoints :: Int
,iterationEstimatedVelocity :: Int
,iterationId :: Int
,iterationStartsOn :: String
,iterationStoriesCount :: Int
,iterationTeamStrength :: Int
,iterationUpdatedAt :: String
,iterationPercentComplete :: Int
,iterationIsCurrent :: Bool
,iterationUnstartedStoriesCount :: Int
,iterationAcceptedStoriesCount :: Int
,iterationStartedStoriesCount :: Int
,iterationDeliveredStoriesCount :: Int
,iterationCommentsCount :: Int
} deriving (Show, Eq, Typeable, Data)