custom print for NugetSourceAuthentication types

fsprojects · Oct 27, 2016 · 35db1e7 · 35db1e7
1 parent 6c5fd70
commit 35db1e7
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/src/Paket.Core/PackageSources.fs b/src/Paket.Core/PackageSources.fs
@@ -27,10 +27,19 @@ type EnvironmentVariable =
         else
             None
 
+
+[<StructuredFormatDisplay("{AsString}")>]
 type NugetSourceAuthentication = 
     | PlainTextAuthentication of username : string * password : string
     | EnvVarAuthentication of usernameVar : EnvironmentVariable * passwordVar : EnvironmentVariable
-    | ConfigAuthentication of username : string * password : string
+    | ConfigAuthentication of username : string * password : string 
+        with
+            override x.ToString() =
+                match x with
+                    | PlainTextAuthentication(u,_) -> sprintf "PlainTextAuthentication (username = %s, password = ***)" u
+                    | EnvVarAuthentication(u,_) ->  sprintf "EnvVarAuthentication (usernameVar = %s, passwordVar = ***)" u.Variable
+                    | ConfigAuthentication(u,_) -> sprintf "ConfigAuthentication (username = %s, password = ***)" u
+            member x.AsString = x.ToString()
 
 let toBasicAuth = function
     | PlainTextAuthentication(username,password) | ConfigAuthentication(username, password) ->