Safe Haskell	None

Clckwrks.Bugs.Acid

Synopsis

Documentation

data BugsState_0 Source

Constructors

BugsState_0
Fields nextBugId_0 :: BugId bugs_0 :: IxSet Bug

Instances

SafeCopy BugsState_0

data BugsState Source

BugsState stores all the bugs

Constructors

BugsState
Fields nextBugId :: BugId bugs :: IxSet Bug nextMilestoneId :: MilestoneId milestones :: IxSet Milestone

Instances

Data BugsState
Typeable BugsState
IsAcidic BugsState
SafeCopy BugsState
Migrate BugsState
(Functor m, Monad m) => GetAcidState (BugsT m) BugsState

initialBugsState :: BugsState Source

initial BugsState

genBugId :: Update BugsState BugId Source

get the next unused BugsId

getBugById :: BugId -> Query BugsState (Maybe Bug)Source

get Bugs by BugId

putBug :: Bug -> Update BugsState ()Source

store Bugs in the state. Will overwrite an existing entry with the same BugId

allBugIds :: Query BugsState [BugId]Source

data SortBugsBy Source

Constructors

SortByBugId

Instances

Eq SortBugsBy
Data SortBugsBy
Ord SortBugsBy
Read SortBugsBy
Show SortBugsBy
Typeable SortBugsBy
SafeCopy SortBugsBy

data SortOrder a Source

Constructors

Asc a
Desc a

Instances

Typeable1 SortOrder
Eq a => Eq (SortOrder a)
Data a => Data (SortOrder a)
Ord a => Ord (SortOrder a)
Read a => Read (SortOrder a)
Show a => Show (SortOrder a)
SafeCopy a0 => SafeCopy (SortOrder a0)

allBugMeta :: SortOrder SortBugsBy -> Query BugsState [BugMeta]Source

newMilestone :: Update BugsState MilestoneId Source

add a new, empty Milestone to the database and return the MilestoneId

getMilestones :: Query BugsState [Milestone]Source

get the milestones

getMilestoneIds :: Query BugsState [MilestoneId]Source

get all the MilestoneIds

getMilestoneTitle :: MilestoneId -> Query BugsState (Maybe Text)Source

get the milestoneTitle for a MilestoneId

setMilestones :: [Milestone] -> Update BugsState ()Source

get the milestones sorted by target date

bugsForMilestones :: [MilestoneId] -> Query BugsState (IxSet Bug)Source

get all the Bugs with one of the target MilestoneIds

milestoneCompletion :: MilestoneId -> Query BugsState (Maybe Rational)Source

return the percentage completion of a MilestoneId

Will return Nothing if no bugs were found for the MilestoneId

data GenBugId Source

Constructors

GenBugId

Instances

Typeable GenBugId
UpdateEvent GenBugId
Method GenBugId
SafeCopy GenBugId

newtype GetBugById Source

Constructors

GetBugById BugId

Instances

Typeable GetBugById
QueryEvent GetBugById
Method GetBugById
SafeCopy GetBugById

newtype PutBug Source

Constructors

PutBug Bug

Instances

Typeable PutBug
UpdateEvent PutBug
Method PutBug
SafeCopy PutBug

data AllBugIds Source

Constructors

AllBugIds

Instances

Typeable AllBugIds
QueryEvent AllBugIds
Method AllBugIds
SafeCopy AllBugIds

newtype AllBugMeta Source

Constructors

AllBugMeta (SortOrder SortBugsBy)

Instances

Typeable AllBugMeta
QueryEvent AllBugMeta
Method AllBugMeta
SafeCopy AllBugMeta

data NewMilestone Source

Constructors

NewMilestone

Instances

Typeable NewMilestone
UpdateEvent NewMilestone
Method NewMilestone
SafeCopy NewMilestone

data GetMilestones Source

Constructors

GetMilestones

Instances

Typeable GetMilestones
QueryEvent GetMilestones
Method GetMilestones
SafeCopy GetMilestones

newtype GetMilestoneTitle Source

Constructors

GetMilestoneTitle MilestoneId

Instances

Typeable GetMilestoneTitle
QueryEvent GetMilestoneTitle
Method GetMilestoneTitle
SafeCopy GetMilestoneTitle

newtype SetMilestones Source

Constructors

SetMilestones [Milestone]

Instances

Typeable SetMilestones
UpdateEvent SetMilestones
Method SetMilestones
SafeCopy SetMilestones

newtype BugsForMilestones Source

Constructors

BugsForMilestones [MilestoneId]

Instances

Typeable BugsForMilestones
QueryEvent BugsForMilestones
Method BugsForMilestones
SafeCopy BugsForMilestones

newtype MilestoneCompletion Source

Constructors

MilestoneCompletion MilestoneId

Instances

Typeable MilestoneCompletion
QueryEvent MilestoneCompletion
Method MilestoneCompletion
SafeCopy MilestoneCompletion