Permalink
Browse files

Updated Feed to use new limit parameter in history.

  • Loading branch information...
1 parent 3259876 commit 77e2cc9be52b498b7dbe36e02ff4126821d03bc8 John MacFarlane committed May 20, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 Network/Gitit/Feed.hs
@@ -73,6 +73,7 @@ changeLog days a mbPath now' = do
let files = F.concatMap (\f -> [f, f <.> "page"]) mbPath
let startTime = addUTCTime (fromIntegral $ -60 * 60 * 24 * days) now'
rs <- history a files TimeRange{timeFrom = Just startTime, timeTo = Just now'}
+ Nothing
return $ sortBy (comparing revDateTime) rs
generateEmptyfeed :: Generator -> String ->String ->Maybe String -> [Person] -> Date -> Feed

0 comments on commit 77e2cc9

Please sign in to comment.