diff --git a/lib/CheckDir.hs b/lib/CheckDir.hs
index f296ff35a3e835481d27644a51861c047713cdc0..21e51ea4625cd578ed55e6537ccb4ea6daae6a73 100644
--- a/lib/CheckDir.hs
+++ b/lib/CheckDir.hs
@@ -99,7 +99,6 @@ instance ToJSON DirResult where
       , "mapLints" .= dirresultMaps res
       , "exitGraph" .= showDot (dirresultGraph res)
       ]
-    , "resultText" .= prettyprint (Suggestion, res)
     , "severity" .= maximumLintLevel res
     , "mapInfo" .= fmap (\tm -> A.object [ "badges" .= mapresultBadges tm ])
                         (dirresultMaps res)
diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs
index ba92d6ae16e28bbfb43dcbd65a34a3c0a7d2e8f9..04f32640a294cd08f6f9730f31a3e16429527ead 100644
--- a/lib/CheckMap.hs
+++ b/lib/CheckMap.hs
@@ -68,7 +68,10 @@ newtype CollectedLints = CollectedLints (Map Hint [Text])
 instance ToJSON CollectedLints where
   toJSON (CollectedLints col) = toJSON
     . M.mapKeys hintMsg
-    $ M.mapWithKey (\h cs -> A.object [ "level" .= hintLevel h, "in" .= cs ]) col
+    $ M.mapWithKey (\h cs -> A.object [ "level" .= hintLevel h, "in" .= truncated cs ]) col
+    where truncated cs = if length cs > 10
+            then take 9 cs <> [ "..." ]
+            else cs
 
 
 -- | this module's raison d'être