Expose performMinorGC (#8257)

Signed-off-by: Austin Seipp <austin@well-typed.com>

1 files changed, 14 insertions, 6 deletions

diff --git a/libraries/base/System/Mem.hs b/libraries/base/System/Mem.hs
index f162a75cf4..2ad75ce33e 100644
--- a/libraries/base/System/Mem.hs
+++ b/libraries/base/System/Mem.hs
@@ -14,11 +14,19 @@
 --
 -----------------------------------------------------------------------------
 
-module System.Mem (
-        performGC
-  ) where
- 
+module System.Mem
+       ( performGC
+       , performMajorGC
+       , performMinorGC
+       ) where
 import Prelude
 
--- | Triggers an immediate garbage collection
-foreign import ccall {-safe-} "performMajorGC" performGC :: IO ()
+-- | Triggers an immediate garbage collection.
+performGC :: IO ()
+performGC = performMajorGC
+
+-- | Triggers an immediate garbage collection.
+foreign import ccall "performMajorGC" performMajorGC :: IO ()
+
+-- | Triggers an immediate minor garbage collection.
+foreign import ccall "performMinorGC" performMinorGC :: IO ()