silence warnings during compilation

Author: dawedawe

tests/FSharp.ApiDocs.Tests/files/AttributesTestLib/Attributes.fs

@@ -9,19 +9,19 @@ type TestAttribute(?int: int, ?string: string, ?array: string array) =
     member val Int = defaultArg int 0 with get, set
     member val Array = defaultArg array [||] with get, set
 
-type IntTestAttribute(int: int) =
+type IntTestAttribute(_int: int) =
     inherit Attribute()
 
-type BoolTestAttribute(bool: bool) =
+type BoolTestAttribute(_bool: bool) =
     inherit Attribute()
 
-type StringTestAttribute(string: string) =
+type StringTestAttribute(_string: string) =
     inherit Attribute()
 
-type ArrayTestAttribute(array: string array) =
+type ArrayTestAttribute(_array: string array) =
     inherit Attribute()
 
-type MultipleTestAttribute(string: string, int: int, array: int array) =
+type MultipleTestAttribute(_string: string, _int: int, _array: int array) =
     inherit Attribute()
 
 [<Obsolete>]
@@ -50,7 +50,7 @@ type AttributeInterface =
 [<TestAttribute>]
 type AttributeClass() =
     [<TestAttribute(String = "ctor")>]
-    new(i: int) = AttributeClass()
+    new(_i: int) = AttributeClass()
 
     [<TestAttribute>]
     member _.TestMember = 1

tests/FSharp.ApiDocs.Tests/files/FsLib2/Library2.fs

@@ -67,7 +67,7 @@ type Test_Issue287() =
     /// Function Foo!
     abstract member Foo: int -> unit
     /// Empty function for signature
-    default x.Foo a = ()
+    default x.Foo _a = ()
 
 [<RequireQualifiedAccess>]
 module Test_Issue472_R =
@@ -88,11 +88,11 @@ module Test_Issue472 =
 
 type Test_Issue472_T() =
     /// Function MultPartial!
-    member x.MultPartial (arg1: int) (arg2: int) = ()
+    member x.MultPartial (_arg1: int) (_arg2: int) = ()
     /// Function MultArg!
-    member x.MultArg(arg1: int, arg2: int) = ()
+    member x.MultArg(_arg1: int, _arg2: int) = ()
     /// Function MultArgTupled!
-    member x.MultArgTupled(arg: (int * int)) = ()
+    member x.MultArgTupled(_arg: (int * int)) = ()
 
 (*
 type ITestInterface =
@@ -117,16 +117,16 @@ module Test_Issue201Extensions =
 /// [omit]
 type Test_Omit() =
     /// This Should not be displayed
-    member x.Foo a = ()
+    member x.Foo _a = ()
 
 /// Test ` ` test
 type Test_Empty_Code_Block() =
-    let empty = ()
+    let _empty = ()
 
 module ``Space-Missing`` =
 
     /// Implicit cast operator test
-    type ``Implicit-Cast``(value: int) =
+    type ``Implicit-Cast``(_value: int) =
         class
         end