diff options
| author | stuebinm | 2021-12-23 18:34:54 +0100 |
|---|---|---|
| committer | stuebinm | 2021-12-23 18:34:54 +0100 |
| commit | 8bd6cef9e3c77f6e2ffcba6c1a4be04f12a6e81a (patch) | |
| tree | 51b005869c98945b926cda5f73bb0ffe4ca3ed8d | |
| parent | e0d76fc6d740335454b4a23013d50af7f2513af4 (diff) | |
limit output for frequent lints
it's now limited to just the first ten contexts, then an ellipsis
| -rw-r--r-- | lib/CheckDir.hs | 1 | ||||
| -rw-r--r-- | lib/CheckMap.hs | 5 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lib/CheckDir.hs b/lib/CheckDir.hs index f296ff3..21e51ea 100644 --- a/lib/CheckDir.hs +++ b/lib/CheckDir.hs @@ -99,7 +99,6 @@ instance ToJSON DirResult where , "mapLints" .= dirresultMaps res , "exitGraph" .= showDot (dirresultGraph res) ] - , "resultText" .= prettyprint (Suggestion, res) , "severity" .= maximumLintLevel res , "mapInfo" .= fmap (\tm -> A.object [ "badges" .= mapresultBadges tm ]) (dirresultMaps res) 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 |