Expose openHandles

jasagredo · jasagredo · commit 9aa7e77fa117 · 2024-10-21T07:49:49.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 -- ????-??-??
+
+### Non-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
@@ -22,6 +22,7 @@ module System.FS.Sim.MockFS (
   , example
   , handleIsOpen
   , numOpenHandles
+  , openHandles
   , pretty
     -- * Debugging
   , dumpState
