diff options
author | stuebinm | 2022-03-19 20:20:20 +0100 |
---|---|---|
committer | stuebinm | 2022-03-19 20:21:14 +0100 |
commit | 80cc9d0f70e98ff9b8aa78c86891d4a9bb4759d5 (patch) | |
tree | 0c0151ebfa7b7b87b4906532b93452afb1dd39a8 /lib/Util.hs | |
parent | dbf2253dc4256809b255767cbf4ae9c236f18542 (diff) |
unbreak a very, very long rebase
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 |