Repository : ssh://g...@git.haskell.org/base
On branch : master
Link :
http://ghc.haskell.org/trac/ghc/changeset/c1491e683d3edc31fd20bd3b3021d3a620aa0184/base
>---------------------------------------------------------------
commit c1491e683d3edc31fd20bd3b3021d3a620aa0184
Author: Austin Seipp <aus...@well-typed.com>
Date: Sun Sep 29 09:42:06 2013 -0500
Expose performMinorGC (#8257)
Signed-off-by: Austin Seipp <aus...@well-typed.com>
>---------------------------------------------------------------
c1491e683d3edc31fd20bd3b3021d3a620aa0184
System/Mem.hs | 20 ++++++++++++++------
1 file changed, 14 insertions(+), 6 deletions(-)
diff --git a/System/Mem.hs b/System/Mem.hs
index f162a75..2ad75ce 100644
--- a/System/Mem.hs
+++ b/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 ()
_______________________________________________
ghc-commits mailing list
ghc-commits@haskell.org
http://www.haskell.org/mailman/listinfo/ghc-commits
