add explicit upgrade command
This commit is contained in:
parent
bc21502b9a
commit
d7ef5fd294
5 changed files with 34 additions and 3 deletions
22
Command/Upgrade.hs
Normal file
22
Command/Upgrade.hs
Normal file
|
@ -0,0 +1,22 @@
|
|||
{- git-annex command
|
||||
-
|
||||
- Copyright 2011 Joey Hess <joey@kitenet.net>
|
||||
-
|
||||
- Licensed under the GNU GPL version 3 or higher.
|
||||
-}
|
||||
|
||||
module Command.Upgrade where
|
||||
|
||||
import Command
|
||||
|
||||
command :: [Command]
|
||||
command = [Command "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
|
Loading…
Add table
Add a link
Reference in a new issue