convert GitRepo to struct with constructor

This commit is contained in:
Joey Hess 2010-10-10 15:54:02 -04:00
parent 7880dc16fe
commit dce9c2e080
7 changed files with 71 additions and 50 deletions

View file

@ -13,7 +13,7 @@ import qualified BackendUrl
backends = [BackendFile.backend, BackendChecksum.backend, BackendUrl.backend]
main = do
repo <- repoTop
repo <- currentRepo
gitPrep repo
l <- readLog "demo.log"