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

upgrade messages

Browse source
This commit is contained in:
Joey Hess 2011-03-21 20:46:43 -04:00
parent 02c3f3880b
commit c048905dc4
3 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Upgrade.hs
View file

@ -10,6 +10,7 @@ module Command.Upgrade where
import Command
import Upgrade
import Version
import Messages
command :: [Command]
command = [standaloneCommand "upgrade" paramNothing seek
@ -20,6 +21,7 @@ seek = [withNothing start]
start :: CommandStartNothing
start = do
showStart "upgrade" ""
r <- upgrade
checkVersion
return $ Just $ return $ Just $ return r