diff options
Diffstat (limited to '')
-rw-r--r-- | lib/CheckDir.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/CheckDir.hs b/lib/CheckDir.hs index d5ea440..17c6f78 100644 --- a/lib/CheckDir.hs +++ b/lib/CheckDir.hs @@ -16,7 +16,7 @@ import Data.Aeson (ToJSON, (.=)) import qualified Data.Aeson as A import Data.Foldable (fold) import Data.Functor ((<&>)) -import Data.Map (Map, elems, keys) +import Data.Map (Map, elems, keys, mapWithKey) import qualified Data.Map as M import Data.Map.Strict (mapKeys, (\\)) import Data.Maybe (mapMaybe) @@ -32,6 +32,7 @@ import System.FilePath.Posix (takeDirectory) import Types (Dep (Local, LocalMap), Level (..), hintLevel) import Util (PrettyPrint (prettyprint)) +import Badges (badgeJson) -- based on the startling observation that Data.Map has lower complexity @@ -94,7 +95,12 @@ instance ToJSON DirResult where ] , "resultText" .= prettyprint (Suggestion, res) , "severity" .= maximumLintLevel res + , "badges" .= annotatedBadges ] + where annotatedBadges = concat + . M.elems + . mapWithKey (\k -> fmap (badgeJson k) . mapresultBadges) + $ dirresultMaps res instance ToJSON MissingAsset where toJSON (MissingAsset md) = A.object |