projectsAllStory :: Project -> [UserStory]
projectsAllStory p = concat 
  [ concatMap _sprintStorys $ _projectSprints p , _projectBacklog $ p ]
projectsAllStory :: Project -> [UserStory]
projectsAllStory p = concat 
  [ concatMap _sprintStorys $ _projectSprints p , _projectBacklog $ p ]
projectsAllStory p = concat 
  [ concatMap _sprintStorys $ _projectSprints p , _projectBacklog $ p ]