-- 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.1.0 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 taskId :: Lens' Task Id taskDescription :: Lens' Task String taskPoint :: Lens' Task Int taskStatus :: Lens' Task TStatus taskWorkTimes :: Lens' Task [WorkTime] storyId :: Lens' UserStory Id storyDescription :: Lens' UserStory String storyTasks :: Lens' UserStory [Task] storyStatus :: Lens' UserStory TStatus sprintId :: Lens' Sprint Id sprintDescription :: Lens' Sprint String sprintStorys :: Lens' Sprint [UserStory] sprintStatus :: Lens' Sprint TStatus projectName :: Lens' Project String projectBacklog :: Lens' Project [UserStory] projectSprints :: Lens' Project [Sprint] projectStatus :: Lens' Project TStatus 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.Part projectsAllStory :: Project -> [UserStory] stWait :: TStatusRecord -> Bool stRunning :: TStatusRecord -> Bool stFinished :: TStatusRecord -> Bool stNotAchieved :: TStatusRecord -> Bool stRejected :: TStatusRecord -> Bool getLastStatus' :: TStatus -> TStatusRecord statusToList' :: TStatus -> [TStatusRecord] module Data.TTask.Types.Class class HasPoint p calcPoint :: HasPoint p => p -> Point class HasTask t getTask :: HasTask t => t -> [Task] class HasStatuses s getStatuses :: HasStatuses s => s -> [StatusLogRec] getLastStatuses :: HasStatuses s => s -> [StatusLogRec] class IsStatus s status2Wait :: IsStatus s => s -> Bool status2Running :: IsStatus s => s -> Bool status2Finished :: IsStatus s => s -> Bool status2NotAchieved :: IsStatus s => s -> Bool status2Rejected :: IsStatus s => s -> Bool instance Data.TTask.Types.Class.HasPoint Data.TTask.Types.Types.Task instance Data.TTask.Types.Class.HasPoint Data.TTask.Types.Types.UserStory instance Data.TTask.Types.Class.HasPoint Data.TTask.Types.Types.Sprint instance Data.TTask.Types.Class.HasPoint Data.TTask.Types.Types.Project instance Data.TTask.Types.Class.HasPoint Data.TTask.Types.Types.TTaskContents instance Data.TTask.Types.Class.HasTask Data.TTask.Types.Types.UserStory instance Data.TTask.Types.Class.HasTask Data.TTask.Types.Types.Sprint instance Data.TTask.Types.Class.HasTask Data.TTask.Types.Types.Project instance Data.TTask.Types.Class.HasStatuses Data.TTask.Types.Types.Task instance Data.TTask.Types.Class.HasStatuses Data.TTask.Types.Types.UserStory instance Data.TTask.Types.Class.HasStatuses Data.TTask.Types.Types.Sprint instance Data.TTask.Types.Class.IsStatus Data.TTask.Types.Types.TStatusRecord instance Data.TTask.Types.Class.IsStatus Data.TTask.Types.Types.TStatus module Data.TTask.Types.Lens type LensPrism s t a b = forall f. (Functor f, Applicative f) => Optic (->) f s t a b type LensPrism' s a = LensPrism s s a a task :: Id -> LensPrism' Project Task story :: Id -> LensPrism' Project UserStory sprint :: Id -> LensPrism' Project Sprint taskInSprint :: Id -> LensPrism' Sprint Task storyInSprint :: Id -> LensPrism' Sprint UserStory taskInStroy :: Id -> LensPrism' UserStory Task allTasks :: HasTask t => Getter t [Task] allStory :: Getter Project [UserStory] point :: HasPoint p => Getter p Point statuses :: HasStatuses s => Getter s [StatusLogRec] lastStatuses :: HasStatuses s => Getter s [StatusLogRec] getLastStatus :: Getter TStatus TStatusRecord statusToList :: Getter TStatus [TStatusRecord] isWait :: IsStatus s => Getter s Bool isRunning :: IsStatus s => Getter s Bool isFinished :: IsStatus s => Getter s Bool isNotAchieved :: IsStatus s => Getter s Bool isRejected :: IsStatus s => Getter s Bool getStatusTime :: Getter TStatusRecord LocalTime getLogContents :: Lens' StatusLogRec TTaskContents getLogStatus :: Lens' StatusLogRec TStatusRecord isProject :: Getter TTaskContents Bool isSprint :: Getter TTaskContents Bool isStory :: Getter TTaskContents Bool isTask :: Getter TTaskContents Bool bundle :: LensPrism' a b -> LensPrism' a b -> LensPrism' a b finding :: (a -> Bool) -> Lens' [a] (Maybe a) module Data.TTask.File.Compatibility.V0_0_1_0 readProject :: String -> Maybe Project instance GHC.Classes.Eq Data.TTask.File.Compatibility.V0_0_1_0.Project instance GHC.Read.Read Data.TTask.File.Compatibility.V0_0_1_0.Project instance GHC.Show.Show Data.TTask.File.Compatibility.V0_0_1_0.Project instance GHC.Classes.Eq Data.TTask.File.Compatibility.V0_0_1_0.Sprint instance GHC.Read.Read Data.TTask.File.Compatibility.V0_0_1_0.Sprint instance GHC.Show.Show Data.TTask.File.Compatibility.V0_0_1_0.Sprint instance GHC.Classes.Eq Data.TTask.File.Compatibility.V0_0_1_0.UserStory instance GHC.Read.Read Data.TTask.File.Compatibility.V0_0_1_0.UserStory instance GHC.Show.Show Data.TTask.File.Compatibility.V0_0_1_0.UserStory instance GHC.Classes.Eq Data.TTask.File.Compatibility.V0_0_1_0.Task instance GHC.Read.Read Data.TTask.File.Compatibility.V0_0_1_0.Task instance GHC.Show.Show Data.TTask.File.Compatibility.V0_0_1_0.Task module Data.TTask.File.Compatibility resolution :: String -> IO (Maybe Project) 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 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.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.File.Success instance GHC.Read.Read Data.TTask.File.File.Success instance GHC.Show.Show Data.TTask.File.File.Success module Data.TTask.File module Data.TTask