diff --git a/src/FsToolkit.ErrorHandling/List.fs b/src/FsToolkit.ErrorHandling/List.fs
index c85ea3e8..d3e187a0 100644
--- a/src/FsToolkit.ErrorHandling/List.fs
+++ b/src/FsToolkit.ErrorHandling/List.fs
@@ -82,7 +82,7 @@ module List =
 
     let sequenceResultA xs = traverseResultA id xs
 
-    let rec traverseValidationA' state f xs =
+    let rec private traverseValidationA' state f xs =
         match xs with
         | [] ->
             state