cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

color message

This commit is contained in:
Joey Hess 2014-08-19 17:12:57 -04:00
parent f72a1aa690
commit d54ee6c336
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/wrapper.hs
View File

@ -14,6 +14,7 @@
module Main where
import Propellor.Message
import Utility.UserInfo
import Utility.Monad
import Utility.Process
@ -139,12 +140,12 @@ setupupstreammaster newref propellordir = do
error $ "Failed to run " ++ cmd ++ " " ++ show ps
warnoutofdate havebranch = do
let n = hPutStrLn stderr
n ("** Your " ++ propellordir ++ " is out of date..")
n (" A newer upstream version is available in " ++ distrepo)
warningMessage"** Your " ++ propellordir ++ " is out of date..")
let also s = hPutStrLn stderr (" " ++ s)
also "A newer upstream version is available in " ++ distrepo
if havebranch
then n (" To merge it, run: git merge " ++ upstreambranch)
else n (" To merge it, find the most recent commit in your repository's history that corresponds to an upstream release of propellor, and set refs/remotes/" ++ upstreambranch ++ " to it. Then run propellor again." )
then also "To merge it, run: git merge " ++ upstreambranch
else also "To merge it, find the most recent commit in your repository's history that corresponds to an upstream release of propellor, and set refs/remotes/" ++ upstreambranch ++ " to it. Then run propellor again."
n ""
fetchUpstreamBranch :: FilePath -> FilePath -> IO ()