[commit: ghc] wip/nfs-locking: Improve terseRun. (4fcb471)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/4fcb471826530ba60abdc40b2ed4304910edf24a/ghc

>---------------------------------------------------------------

commit 4fcb471826530ba60abdc40b2ed4304910edf24a
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue Jan 13 03:05:35 2015 +0000

    Improve terseRun.


>---------------------------------------------------------------

4fcb471826530ba60abdc40b2ed4304910edf24a
 src/Oracles/Builder.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/Oracles/Builder.hs b/src/Oracles/Builder.hs
index e4cd7da..ffc3cf5 100644
--- a/src/Oracles/Builder.hs
+++ b/src/Oracles/Builder.hs
@@ -122,9 +122,13 @@ interestingInfo builder ss = case builder of
     GhcCabal -> prefixAndSuffix 3 0 ss
   where
     prefixAndSuffix n m ss =
-        if length ss <= n + m
+        if length ss <= n + m + 1
         then ss
-        else take n ss ++ ["..."] ++ drop (length ss - m) ss
+        else take n ss
+             ++ ["... skipping "
+             ++ show (length ss - n - m)
+             ++ " arguments ..."]
+             ++ drop (length ss - m) ss
 
 -- Check if the builder is uniquely specified in config files
 specified :: Builder -> Condition