Expose performMinorGC (#8257)
authorAustin Seipp <austin@well-typed.com>
Sun, 29 Sep 2013 14:42:06 +0000 (09:42 -0500)
committerAustin Seipp <austin@well-typed.com>
Sun, 29 Sep 2013 14:42:06 +0000 (09:42 -0500)
Signed-off-by: Austin Seipp <austin@well-typed.com>
System/Mem.hs

index f162a75..2ad75ce 100644 (file)
 --
 -----------------------------------------------------------------------------
 
-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 ()