diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs
index 93c8696d54c7fc741ef3147f3c5a77684d9a80ed..484fe839e01300ef8163637e31e72ac5dcac6669 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
diff --git a/lib/Types.hs b/lib/Types.hs
index ab9f8a2bf284bb1ebc201241704def46d978b500..00f0ee74c444ea15942184c163efaa4fdde453fe 100644
--- a/lib/Types.hs
+++ b/lib/Types.hs
@@ -79,6 +79,9 @@ instance PrettyPrint Lint where
   prettyprint (Offers dep) =
     "  Info: map offers entrypoint " <> prettyprint dep
 
+instance PrettyPrint Hint where
+  prettyprint (Hint level msg) = "  " <> (showText level) <> ": " <> msg
+
 instance ToJSON Lint where
   toJSON (Lint (Hint l m)) = A.object
     [ "msg" .= m, "level" .= l ]