print list of maps in output json

5b3cb907 · stuebinm · Rehlein · e103c8e1 · 5b3cb907
Commit 5b3cb907 authored 3 years ago by stuebinm Committed by Rehlein 3 years ago
--- a/lib/CheckDir.hs
+++ b/lib/CheckDir.hs
@@ -103,6 +103,7 @@ instance ToJSON DirResult where
    , "resultText" .= prettyprint (Suggestion, res)
    , "severity" .= maximumLintLevel res
    , "badges" .= annotatedBadges
+    , "maps" .= M.keys (dirresultMaps res)
    ]
    where annotatedBadges = concat
            . M.elems