From 80cc9d0f70e98ff9b8aa78c86891d4a9bb4759d5 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 19 Mar 2022 20:20:20 +0100
Subject: unbreak a very, very long rebase

---
 lib/Util.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'lib/Util.hs')

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
 
-- 
cgit v1.2.3