Expose openHandles

jasagredo · jasagredo · commit a65be0db80d7 · 2024-10-17T16:00:29.000+02:00
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
