1 2 3 4 5 6 7 8 9 10 11 12
{- git-annex main program - -} import LocationLog import GitRepo main = do repo <- repoTop gitPrep repo l <- readLog "demo.log" writeLog "demo2.log" $ compactLog l