From 8bd6cef9e3c77f6e2ffcba6c1a4be04f12a6e81a Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 23 Dec 2021 18:34:54 +0100
Subject: limit output for frequent lints

it's now limited to just the first ten contexts, then an ellipsis
---
 lib/CheckMap.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib/CheckMap.hs')

diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs
index ba92d6a..04f3264 100644
--- a/lib/CheckMap.hs
+++ b/lib/CheckMap.hs
@@ -68,7 +68,10 @@ newtype CollectedLints = CollectedLints (Map Hint [Text])
 instance ToJSON CollectedLints where
   toJSON (CollectedLints col) = toJSON
     . M.mapKeys hintMsg
-    $ M.mapWithKey (\h cs -> A.object [ "level" .= hintLevel h, "in" .= cs ]) col
+    $ M.mapWithKey (\h cs -> A.object [ "level" .= hintLevel h, "in" .= truncated cs ]) col
+    where truncated cs = if length cs > 10
+            then take 9 cs <> [ "..." ]
+            else cs
 
 
 -- | this module's raison d'être
-- 
cgit v1.2.3