diff options
Diffstat (limited to 'lib/CheckDir.hs')
| -rw-r--r-- | lib/CheckDir.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/CheckDir.hs b/lib/CheckDir.hs index 49b3774..eaf9aee 100644 --- a/lib/CheckDir.hs +++ b/lib/CheckDir.hs @@ -27,6 +27,7 @@ import CheckMap (MapResult (..), Optional, import Control.Monad.Extra (mapMaybeM) import Data.Aeson (ToJSON, (.=)) import qualified Data.Aeson as A +import Data.List (partition) import qualified Data.Map as M import Data.Map.Strict (mapKeys, mapWithKey, (\\)) import Data.Text (isInfixOf) @@ -124,7 +125,7 @@ instance ToJSON (DirResult a) where . foldr aggregateSameResults [] . M.toList $ dirresultMaps res) - , "exitGraph" .= showDot (dirresultGraph res) + , "exitGraph" .= dirresultGraph res ] , "severity" .= maximumLintLevel res , "mapInfo" .= fmap (\tm -> A.object [ "badges" .= mapresultBadges tm ]) @@ -133,8 +134,8 @@ instance ToJSON (DirResult a) where where aggregateSameResults (path,res) acc = case partition (\(_,res') -> res == res') acc of - ([],_) -> ([T.pack path], res):acc - ((paths,_):_,acc') -> (T.pack path:paths, res) : acc' + ([],_) -> ([toText path], res):acc + ((paths,_):_,acc') -> (toText path:paths, res) : acc' instance ToJSON MissingAsset where toJSON (MissingAsset md) = A.object |