diff options
author | 2016-03-31 19:05:47 -0400 | |
---|---|---|
committer | 2016-03-31 19:05:47 -0400 | |
commit | 7cd0ba73996b2ed092f8ee7cb62d0edf9f8f3f1b (patch) | |
tree | 6a23e810b4b3d8a3a4198a25190e0a8b3ce58c62 /Command/Upgrade.hs | |
parent | 4dfa6059e42995eb050f58656fc32f9ee5d3ef16 (diff) | |
parent | dc6d60cb3cbeed45e0651818f762445812f84e7a (diff) |
Merge branch 'adjustedbranch'
Diffstat (limited to 'Command/Upgrade.hs')
-rw-r--r-- | Command/Upgrade.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Command/Upgrade.hs b/Command/Upgrade.hs index 432250a1a..223be581d 100644 --- a/Command/Upgrade.hs +++ b/Command/Upgrade.hs @@ -9,6 +9,8 @@ module Command.Upgrade where import Command import Upgrade +import Annex.Version +import Annex.Init cmd :: Command cmd = dontCheck repoExists $ -- because an old version may not seem to exist @@ -22,5 +24,7 @@ seek = withNothing start start :: CommandStart start = do showStart "upgrade" "." + whenM (isNothing <$> getVersion) $ do + initialize Nothing Nothing r <- upgrade False next $ next $ return r |