From 856a86b8fed5d6ba2cd246ff4472e39c9f34fe6d Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 28 Oct 2021 23:29:59 +0200
Subject: readable prettyprint for inverted lint output

the previous state was a hacky mess
---
 lib/CheckMap.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/CheckMap.hs')

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
-- 
cgit v1.2.3