git-annex.hs


1
2
3
4
5
6
7
8
9
10
11

{- git-annex main program
 - -}

import LocationLog
import GitRepo

main = do
	repo <- repoTop
	gitPrep repo
	l <- readLog "demo.log"
	writeLog "demo2.log" $ compactLog l