mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions 1

need to explicitly run upgrade now

Browse source
This commit is contained in:
Joey Hess 2011-03-19 18:58:10 -04:00
parent 91d1d935dd
commit 54c39d09ba
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Command/Upgrade.hs
View file

@ -8,15 +8,18 @@
module Command.Upgrade where
import Command
import Upgrade
import Version
command :: [Command]
command = [Command "upgrade" paramNothing seek "upgrade repository layout"]
command = [standaloneCommand "upgrade" paramNothing seek
"upgrade repository layout"]
seek :: [CommandSeek]
seek = [withNothing start]
start :: CommandStartNothing
start = do
-- The actual upgrading is handled by just running any command,
-- so nothing extra needs to be done.
return $ Just $ return $ Just $ return True
r <- upgrade
checkVersion
return $ Just $ return $ Just $ return r