Expose openHandles

input-output-hk · Oct 17, 2024 · a65be0d · a65be0d
1 parent efd70ad
commit a65be0d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/fs-sim/CHANGELOG.md b/fs-sim/CHANGELOG.md
@@ -1,5 +1,11 @@
 # Revision history for fs-sim
 
+## Next version -- ????-??-??
+
+### Breaking
+
+* Expose `openHandles` for testing.
+
 ## 0.3.0.1 -- 2024-10-02
 
 ### Patch

diff --git a/fs-sim/src/System/FS/Sim/MockFS.hs b/fs-sim/src/System/FS/Sim/MockFS.hs
@@ -46,6 +46,7 @@ module System.FS.Sim.MockFS (
   , renameFile
     -- * Exported for the benefit of tests only
   , Files
+  , openHandles
   , mockFiles
     -- ** opaque
   , ClosedHandleState