Update src/Database/LSMTree/Internal.hs

Co-authored-by: Joris Dral <[email protected]>
IntersectMBO · Dec 27, 2024 · 089a795 · 089a795
1 parent a5e8698
commit 089a795
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Database/LSMTree/Internal.hs b/src/Database/LSMTree/Internal.hs
@@ -1158,8 +1158,10 @@ createSnapshot snap label tableType t = do
           -- create the directory for this specific snapshot.
           FS.createDirectory hfs (Paths.getNamedSnapshotDir snapDir)
 
-        -- Get the table content.
-        content <- RW.withReadAccess (tableContent thEnv) pure
+        -- Duplicate references to the table content, so that resources do not disappear 
+        -- from under our feet while taking a snapshot. These references are released
+        -- again after the snapshot files/directories are written.
+        content <- RW.withReadAccess (tableContent thEnv) duplicateTableContent
 
         -- Snapshot the write buffer.
         let activeDir = Paths.activeDir (tableSessionRoot thEnv)