Limit the size of query logging

Reviewed By: iamirzhan Differential Revision: D64970166 fbshipit-source-id: dbaff770fc7a0b45af469648f92d27ba693cc00f
facebookincubator · Oct 25, 2024 · 3175a2f · 3175a2f
1 parent 31524e4
commit 3175a2f
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/glean/db/Glean/Backend/Logging.hs b/glean/db/Glean/Backend/Logging.hs
@@ -193,7 +193,10 @@ runLogQuery cmd env repo Thrift.UserQuery{..} log = do
   runLogRepo cmd env repo $ mconcat
     [ log
     , Logger.SetQuery
-        (Text.decodeUtf8With Text.lenientDecode userQuery_query)
+        (Text.decodeUtf8With Text.lenientDecode $
+          if ByteString.length userQuery_query > 1024
+            then "[truncated] " <> ByteString.take 1024 userQuery_query
+            else userQuery_query)
     , Logger.SetPredicate userQuery_predicate
     , maybe mempty (Logger.SetPredicateVersion . fromIntegral)
         userQuery_predicate_version