diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-19 18:58:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-19 18:58:10 -0400 |
| commit | 54c39d09ba0185cea398876e609e59d3059b18e7 (patch) | |
| tree | caf2aa3c82ad904f65d1565fedb960f4ca9ee002 | |
| parent | 91d1d935dd034850c152455bfab8f9df227a682f (diff) | |
need to explicitly run upgrade now
| -rw-r--r-- | Command/Upgrade.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/Command/Upgrade.hs b/Command/Upgrade.hs index 3c9fa3eeb..94398c70a 100644 --- a/Command/Upgrade.hs +++ b/Command/Upgrade.hs @@ -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 |