diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Util.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Util.hs b/lib/Util.hs index d760fc2..3fe0a16 100644 --- a/lib/Util.hs +++ b/lib/Util.hs @@ -66,7 +66,12 @@ printPretty :: PrettyPrint a => a -> IO () printPretty = putStr . T.unpack . prettyprint - +-- | for long lists which shouldn't be printed out in their entirety +ellipsis :: Int -> [Text] -> Text +ellipsis i texts + | i < l = prettyprint (take i texts) <> " ... (and " <> showText (l-i) <> " more)" + | otherwise = prettyprint texts + where l = length texts |