-- Hoogle documentation, generated by Haddock -- See Hoogle, http://www.haskell.org/hoogle/ -- | This is task management tool for yourself, that inspired by scrum. -- -- Please see README.md (ja) @package ttask @version 0.0.0.2 module Data.TTask.Types.Types type Point = Int type Id = Int type StatusLogRec = (TTaskContents, TStatusRecord) newtype WorkTime WorkTime :: Double -> WorkTime data TStatusRecord StatusWait :: LocalTime -> TStatusRecord StatusRunning :: LocalTime -> TStatusRecord StatusFinished :: LocalTime -> TStatusRecord StatusNotAchieved :: LocalTime -> TStatusRecord StatusReject :: LocalTime -> TStatusRecord data TStatus TStatusCons :: TStatusRecord -> TStatus -> TStatus TStatusOne :: TStatusRecord -> TStatus data Task Task :: Id -> String -> Int -> TStatus -> [WorkTime] -> Task [taskId] :: Task -> Id [taskDescription] :: Task -> String [taskPoint] :: Task -> Int [taskStatus] :: Task -> TStatus [taskWorkTimes] :: Task -> [WorkTime] data UserStory UserStory :: Id -> String -> [Task] -> TStatus -> UserStory [storyId] :: UserStory -> Id [storyDescription] :: UserStory -> String [storyTasks] :: UserStory -> [Task] [storyStatus] :: UserStory -> TStatus data Sprint Sprint :: Id -> String -> [UserStory] -> TStatus -> Sprint [sprintId] :: Sprint -> Id [sprintDescription] :: Sprint -> String [sprintStorys] :: Sprint -> [UserStory] [sprintStatus] :: Sprint -> TStatus data Project Project :: String -> [UserStory] -> [Sprint] -> TStatus -> Project [projectName] :: Project -> String [projectBacklog] :: Project -> [UserStory] [projectSprints] :: Project -> [Sprint] [projectStatus] :: Project -> TStatus data TTaskContents TTaskProject :: Project -> TTaskContents TTaskSprint :: Sprint -> TTaskContents TTaskStory :: UserStory -> TTaskContents TTaskTask :: Task -> TTaskContents instance GHC.Classes.Eq Data.TTask.Types.Types.Project instance GHC.Read.Read Data.TTask.Types.Types.Project instance GHC.Show.Show Data.TTask.Types.Types.Project instance GHC.Classes.Eq Data.TTask.Types.Types.Sprint instance GHC.Read.Read Data.TTask.Types.Types.Sprint instance GHC.Show.Show Data.TTask.Types.Types.Sprint instance GHC.Classes.Eq Data.TTask.Types.Types.UserStory instance GHC.Read.Read Data.TTask.Types.Types.UserStory instance GHC.Show.Show Data.TTask.Types.Types.UserStory instance GHC.Classes.Eq Data.TTask.Types.Types.Task instance GHC.Read.Read Data.TTask.Types.Types.Task instance GHC.Show.Show Data.TTask.Types.Types.Task instance GHC.Classes.Eq Data.TTask.Types.Types.TStatus instance GHC.Read.Read Data.TTask.Types.Types.TStatus instance GHC.Show.Show Data.TTask.Types.Types.TStatus instance GHC.Classes.Eq Data.TTask.Types.Types.TStatusRecord instance GHC.Read.Read Data.TTask.Types.Types.TStatusRecord instance GHC.Show.Show Data.TTask.Types.Types.TStatusRecord instance GHC.Classes.Eq Data.TTask.Types.Types.WorkTime instance GHC.Read.Read Data.TTask.Types.Types.WorkTime instance GHC.Show.Show Data.TTask.Types.Types.WorkTime module Data.TTask.Types.Contents isProject :: TTaskContents -> Bool isSprint :: TTaskContents -> Bool isStory :: TTaskContents -> Bool isTask :: TTaskContents -> Bool sprintAllTasks :: Sprint -> [Task] projectsAllTasks :: Project -> [Task] projectsAllStory :: Project -> [UserStory] calcStoryPoint :: UserStory -> Point calcSprintPoint :: Sprint -> Point calcProjectPoint :: Project -> Point getUserStoryById :: Project -> Id -> Maybe UserStory getTaskById :: Project -> Id -> Maybe Task getSprintById :: Project -> Id -> Maybe Sprint module Data.TTask.Types.Status getLastStatus :: TStatus -> TStatusRecord getStatusTime :: TStatusRecord -> LocalTime statusToList :: TStatus -> [TStatusRecord] stWait :: TStatusRecord -> Bool stRunning :: TStatusRecord -> Bool stFinished :: TStatusRecord -> Bool stNotAchieved :: TStatusRecord -> Bool stRejected :: TStatusRecord -> Bool isWait :: TStatus -> Bool isRunning :: TStatus -> Bool isFinished :: TStatus -> Bool isNotAchieved :: TStatus -> Bool isRejected :: TStatus -> Bool stRecToContents :: StatusLogRec -> TTaskContents stRecToStatus :: StatusLogRec -> TStatusRecord getTaskStatuses :: Task -> [StatusLogRec] getStoryStatuses :: UserStory -> [StatusLogRec] getSprintStatuses :: Sprint -> [StatusLogRec] getTaskLastStatus :: Task -> StatusLogRec getStoryLastStatuses :: UserStory -> [StatusLogRec] getSprintLastStatuses :: Sprint -> [StatusLogRec] module Data.TTask.Types module Data.TTask.Analysis data DailyStatuses DailyStatuses :: Day -> Point -> [StatusLogRec] -> DailyStatuses [dayStDay] :: DailyStatuses -> Day [dayStPoint] :: DailyStatuses -> Point [dayStStatuses] :: DailyStatuses -> [StatusLogRec] dailyGroup :: [StatusLogRec] -> [DailyStatuses] summaryPointBy :: (StatusLogRec -> Bool) -> [StatusLogRec] -> Point module Data.TTask.Command.Add newProject :: String -> IO Project addNewStoryToPbl :: String -> Project -> IO Project addNewStoryToSprints :: Id -> String -> Project -> IO Project addNewSprint :: String -> Project -> IO Project addNewTask :: Point -> Id -> String -> Project -> IO Project addSprintToProject :: Sprint -> Project -> Project addStoryToPbl :: UserStory -> Project -> Project addStoryToPblFirst :: UserStory -> Project -> Project addStoryToPjSprints :: Id -> UserStory -> Project -> Project addTaskToProject :: Id -> Task -> Project -> Project getLocalTime :: IO LocalTime projectsTaskMaxId :: Project -> Id projectStoryMaxId :: Project -> Id projectSprintMaxId :: Project -> Id module Data.TTask.Command.Update updateTaskStatus :: Id -> TStatusRecord -> Project -> Project updateStoryStatus :: Id -> TStatusRecord -> Project -> Project updateSprintStatus :: Id -> TStatusRecord -> Project -> Project updateTask :: Id -> (Task -> Task) -> Project -> Project updateStory :: Id -> (UserStory -> UserStory) -> Project -> Project updateSprint :: Id -> (Sprint -> Sprint) -> Project -> Project module Data.TTask.Command.Delete deleteTask :: Id -> Project -> Project deleteStory :: Id -> Project -> Project deleteSprint :: Id -> Project -> Project module Data.TTask.Command.Move moveStoryToPbl :: Id -> Project -> Maybe Project moveStoryToSprints :: Id -> Id -> Project -> Maybe Project moveTask :: Id -> Id -> Project -> Maybe Project swapSprint :: Id -> Id -> Project -> Project swapStory :: Id -> Id -> Project -> Project swapTask :: Id -> Id -> Project -> Project module Data.TTask.Pretty.Contents ppActive :: String -> Project -> String ppStory :: UserStory -> String ppStoryI :: Int -> UserStory -> String ppStoryList :: [UserStory] -> String ppSprint :: Sprint -> String ppSprintList :: [Sprint] -> String ppProjectPbl :: Project -> String ppProjectSprintList :: Project -> String ppProjectSprint :: Id -> Project -> Maybe String ppProjectSprintDetail :: Id -> Project -> Maybe String ppSprintHeaderDetail :: Sprint -> String ppProjectStory :: Id -> Project -> Maybe String ppProjectTask :: Id -> Project -> Maybe String ppStatusRecord :: TStatusRecord -> String module Data.TTask.Pretty.Status ppProjectSprintLog :: Id -> Project -> Maybe String module Data.TTask.Pretty module Data.TTask.Command module Data.TTask.File data Success Success :: Success Failure :: Success readActiveProject :: IO (Maybe Project) writeActiveProject :: Project -> IO Success activeProjectName :: IO (Maybe String) setActiveProject :: String -> IO Success initDirectory :: IO () initProjectFile :: String -> String -> IO () findProjects :: IO [String] instance GHC.Classes.Eq Data.TTask.File.Success instance GHC.Read.Read Data.TTask.File.Success instance GHC.Show.Show Data.TTask.File.Success module Data.TTask