diff options
author | stuebinm | 2021-10-28 23:29:59 +0200 |
---|---|---|
committer | stuebinm | 2021-10-30 15:44:25 +0200 |
commit | 856a86b8fed5d6ba2cd246ff4472e39c9f34fe6d (patch) | |
tree | e35d8cfb28f42fc5f7be9a7b8fb1f99862e1b8f2 /lib/CheckMap.hs | |
parent | 34c1949525e711beaeb6465a54338ec3bd811712 (diff) |
readable prettyprint for inverted lint output
the previous state was a hacky mess
Diffstat (limited to '')
-rw-r--r-- | lib/CheckMap.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs index 93c8696..484fe83 100644 --- a/lib/CheckMap.hs +++ b/lib/CheckMap.hs @@ -124,7 +124,8 @@ instance PrettyPrint (Level, MapResult) where -- TODO: this can be simplified further prettyLayer :: [Text] prettyLayer = mapMaybe - (\(_,l) -> Just $ {-prettyprint level <> -}(T.concat $ fmap prettyprint $ fmap getName l)) + (\(hint,layer) -> Just $ prettyprint hint + <> "\n (in " <> T.intercalate ", " (fmap getName layer) <> ")\n") (toList . mapresultLayer $ mapResult) prettyTileset :: [Text] prettyTileset = mapMaybe |