hide some value output in conformist prettyprint function (#241)

uzh · Oct 30, 2023 · 7f02447 · 7f02447
1 parent b319f76
commit 7f02447
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/pool/app/pool_common/pool_common_utils.ml b/pool/app/pool_common/pool_common_utils.ml
@@ -34,7 +34,9 @@ module PoolConformist = struct
     let input =
       input
       |> CCList.map (fun (k, v) ->
-        CCFormat.sprintf "(%s: %s)" k (CCString.concat ", " v))
+        if CCInt.equal CCString.(find ~sub:"password" (lowercase_ascii k)) (-1)
+        then CCFormat.sprintf "(%s: [opaque])" k
+        else CCFormat.sprintf "(%s: %s)" k (CCString.concat ", " v))
       |> CCString.concat ", "
       |> CCFormat.sprintf "(%s)"
     in