log compaction

This commit is contained in:
Joey Hess 2010-10-10 12:31:14 -04:00
parent f98fa53d7f
commit 7ad4a0bb7d
3 changed files with 41 additions and 12 deletions

View file

@ -7,4 +7,4 @@ import GitRepo
main = do
gitPrep
l <- readLog "demo.log"
writeLog "demo2.log" $ l !! 0
writeLog "demo2.log" $ compactLog l