Permalink
Browse files

showActivity - be sensitive to the 'limit' parameter.

  • Loading branch information...
1 parent 86d5e71 commit e3bf80a561f7ba6a03d0c1bbc42fa667fcd9397c John MacFarlane committed May 20, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 Network/Gitit/Handlers.hs
@@ -384,7 +384,8 @@ showActivity = withData $ \(params :: Params) -> do
Just t -> Just t
let forUser = pForUser params
fs <- getFileStore
- hist <- liftIO $ history fs [] (TimeRange since Nothing)
+ hist <- liftIO $ (take (pLimit params)) `fmap`
+ history fs [] (TimeRange since Nothing)
let hist' = case forUser of
Nothing -> hist
Just u -> filter (\r -> authorName (revAuthor r) == u) hist

0 comments on commit e3bf80a

Please sign in to comment.