Commit 4fcb4718 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Improve terseRun.

parent 5aa3addc
...@@ -122,9 +122,13 @@ interestingInfo builder ss = case builder of ...@@ -122,9 +122,13 @@ interestingInfo builder ss = case builder of
GhcCabal -> prefixAndSuffix 3 0 ss GhcCabal -> prefixAndSuffix 3 0 ss
where where
prefixAndSuffix n m ss = prefixAndSuffix n m ss =
if length ss <= n + m if length ss <= n + m + 1
then ss 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 -- Check if the builder is uniquely specified in config files
specified :: Builder -> Condition specified :: Builder -> Condition
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment