Skip to content
Browse files

Don't show deleted stories.

  • Loading branch information...
1 parent 60460ae commit e1035b7bbc0de77798cdfd58094e73ef717cc815 @mike-burns committed Dec 28, 2011
Showing with 3 additions and 0 deletions.
  1. +3 −0 LsStory.hs
View
3 LsStory.hs
@@ -72,6 +72,7 @@ buildFilters args = filters <*> [args]
,estimationFilter
,assignmentFilter
,stateFilter
+ ,deletionsFilter
]
ideaFilter args
@@ -133,6 +134,8 @@ stateFilter args =
then map fst $ filter snd $ zip allStates stateBits
else allStates
+deletionsFilter args = filter (not . storyDeleted)
+
data LsStoryArg = LsStoryArg {
profileName :: String

0 comments on commit e1035b7

Please sign in to comment.
Something went wrong with that request. Please try again.