Fix a potential stack overflow

bogusbul · Dec 14, 2023 · b2d3a5b · b2d3a5b
1 parent 8de49e9
commit b2d3a5b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/files.ml b/src/files.ml
@@ -738,7 +738,7 @@ let copy
                setDirPropOnRoot rootTo
                  (workingDir, pTo, initialDesc, desc')) >>= fun () ->
              Lwt.return (Update.ArchiveDir (desc, newChildren),
-                         List.flatten pathl)
+                         Safelist.flatten pathl)
          | Update.NoArchive ->
              assert false)
       (fun e ->