diff options
Diffstat (limited to 'lib/Util.hs')
| -rw-r--r-- | lib/Util.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/Util.hs b/lib/Util.hs index 4b5d092..93060aa 100644 --- a/lib/Util.hs +++ b/lib/Util.hs @@ -2,14 +2,12 @@ {-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} --- | has (perhaps inevitably) morphed into a module that mostly --- concerns itself with wrangling haskell's string types module Util ( mkProxy , PrettyPrint(..) , printPretty , naiveEscapeHTML - , layerIsEmpty + , ellipsis ) where import Universum @@ -69,7 +67,7 @@ printPretty = putStr . toString . 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)" + | i < l = prettyprint (take i texts) <> " ... (and " <> show (l-i) <> " more)" | otherwise = prettyprint texts where l = length texts |