log compaction
This commit is contained in:
parent
f98fa53d7f
commit
7ad4a0bb7d
3 changed files with 41 additions and 12 deletions
|
@ -7,4 +7,4 @@ import GitRepo
|
|||
main = do
|
||||
gitPrep
|
||||
l <- readLog "demo.log"
|
||||
writeLog "demo2.log" $ l !! 0
|
||||
writeLog "demo2.log" $ compactLog l
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue