v3 upgrade code works

but write the index file a lot, so slow
This commit is contained in:
Joey Hess 2011-06-23 02:30:20 -04:00
parent 66ceb92702
commit af10b2854a
4 changed files with 94 additions and 50 deletions

View file

@ -21,7 +21,7 @@ seek = [withNothing start]
start :: CommandStartNothing
start = do
showStart "upgrade" ""
showStart "upgrade" "."
r <- upgrade
checkVersion
setVersion
next $ next $ return r