summaryrefslogtreecommitdiff
path: root/lib/Util.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Util.hs')
-rw-r--r--lib/Util.hs6
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