X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FMem%2FStableName.hs;h=d7d27a3c51c0932f106fb0ea9e76fb379bfc71ba;hb=41e8fba828acbae1751628af50849f5352b27873;hp=a2f939797bdaaaab794687adb858895695b5335e;hpb=3907800d3a9f26fba88b0605af197a7d2866a0eb;p=ghc-base.git

diff --git a/System/Mem/StableName.hs b/System/Mem/StableName.hs
index a2f9397..d7d27a3 100644
--- a/System/Mem/StableName.hs
+++ b/System/Mem/StableName.hs
@@ -1,3 +1,11 @@
+{-# LANGUAGE CPP #-}
+#ifdef __GLASGOW_HASKELL__
+{-# LANGUAGE MagicHash #-}
+#if !defined(__PARALLEL_HASKELL__)
+{-# LANGUAGE UnboxedTuples #-}
+#endif
+#endif
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  System.Mem.StableName
@@ -38,7 +46,7 @@ import Hugs.Stable
 #endif
 
 #ifdef __GLASGOW_HASKELL__
-import GHC.IOBase	( IO(..) )
+import GHC.IO           ( IO(..) )
 import GHC.Base		( Int(..), StableName#, makeStableName#
 			, eqStableName#, stableNameToInt# )