Fix arg names

Author: gusty

src/FSharpPlus/Data/NonEmptyList.fs

@@ -158,7 +158,7 @@ module NonEmptyList =
     /// <param name="value">The element to add</param>
     /// <param name="list">The list to add to</param>
     /// <returns>A new list with the element added to the beginning.</returns>
-    let cons e { Head = x; Tail = xs } = { Head = e ; Tail = x::xs }
+    let cons value ({ Head = x; Tail = xs } as list) = { Head = value ; Tail = x::xs }
 
     /// <summary>Splits the list in head and tail.</summary>
     /// <param name="list">The input list.</param>
@@ -167,7 +167,7 @@ module NonEmptyList =
     let uncons ({ Head = x; Tail = xs } as list) =
     #if !NET45
         match xs with
-        | [] -> invalidArg (nameof(list)) "The input sequence has an empty tail"
+        | [] -> invalidArg (nameof list) "The input sequence has an empty tail"
         | _  -> x, ofList xs
     #else
         match xs with