From 7743da0c3d0a155fb35dbc5d124dba966675da97 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 19 Aug 2014 17:17:01 -0400 Subject: syntax --- src/wrapper.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/wrapper.hs b/src/wrapper.hs index 9c2f80d1..5807cb41 100644 --- a/src/wrapper.hs +++ b/src/wrapper.hs @@ -140,12 +140,12 @@ setupupstreammaster newref propellordir = do error $ "Failed to run " ++ cmd ++ " " ++ show ps warnoutofdate havebranch = do - warningMessage"** Your " ++ propellordir ++ " is out of date..") + warningMessage ("** Your " ++ propellordir ++ " is out of date..") let also s = hPutStrLn stderr (" " ++ s) - also "A newer upstream version is available in " ++ distrepo + also ("A newer upstream version is available in " ++ distrepo) if havebranch - 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." + 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 () -- cgit v1.2.3