From b2d3a5b0793d8fa39fa51385fe877486dc6b630b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?T=C3=B5ivo=20Leedj=C3=A4rv?= <toivol@gmail.com>
Date: Thu, 14 Dec 2023 16:45:35 +0100
Subject: [PATCH] Fix a potential stack overflow

---
 src/files.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/files.ml b/src/files.ml
index fd17bf5f0..c12ed6657 100644
--- 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 ->