From 4d4b8b5683c070d08327605d2a620c8c7cbf3281 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Thu, 6 Aug 2015 14:09:02 +0200
Subject: [PATCH] Reword --dry-run no packages to unregister

---
 src/Stack/Build/Execute.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Stack/Build/Execute.hs b/src/Stack/Build/Execute.hs
index 6f603764d9..e513d1549f 100644
--- a/src/Stack/Build/Execute.hs
+++ b/src/Stack/Build/Execute.hs
@@ -110,7 +110,7 @@ printPlan :: M env m
           -> m ()
 printPlan finalAction plan = do
     case Map.toList $ planUnregisterLocal plan of
-        [] -> $logInfo "Nothing to unregister"
+        [] -> $logInfo "No packages would be unregistered."
         xs -> do
             $logInfo "Would unregister locally:"
             forM_ xs $ \(gid, reason) -> $logInfo $ T.concat
@@ -123,7 +123,7 @@ printPlan finalAction plan = do
     $logInfo ""
 
     case Map.elems $ planTasks plan of
-        [] -> $logInfo "Nothing to build"
+        [] -> $logInfo "Nothing to build."
         xs -> do
             $logInfo "Would build:"
             mapM_ ($logInfo . displayTask) xs
@@ -139,7 +139,7 @@ printPlan finalAction plan = do
             $logInfo ""
 
             case Map.toList $ planFinals plan of
-                [] -> $logInfo $ "Nothing to " <> finalLabel
+                [] -> $logInfo $ "Nothing to " <> finalLabel <> "."
                 xs -> do
                     $logInfo $ "Would " <> finalLabel <> ":"
                     forM_ xs $ \(name, _) -> $logInfo $ packageNameText name
@@ -147,7 +147,7 @@ printPlan finalAction plan = do
     $logInfo ""
 
     case Map.toList $ planInstallExes plan of
-        [] -> $logInfo "No executables to be installed"
+        [] -> $logInfo "No executables to be installed."
         xs -> do
             $logInfo "Would install executables:"
             forM_ xs $ \(name, loc) -> $logInfo $ T.concat