X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FWeak.lhs;h=67046f88f3d0a2507b9fba19a5fe20ee8da30d7b;hb=41e8fba828acbae1751628af50849f5352b27873;hp=860872774d35fe34741033879e04f7c9cc5d85f1;hpb=d2063b5b0be014545b21819172c87756efcb0b0c;p=ghc-base.git

diff --git a/GHC/Weak.lhs b/GHC/Weak.lhs
index 8608727..67046f8 100644
--- a/GHC/Weak.lhs
+++ b/GHC/Weak.lhs
@@ -1,6 +1,12 @@
 \begin{code}
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP
+           , NoImplicitPrelude
+           , BangPatterns
+           , MagicHash
+           , UnboxedTuples
+  #-}
 {-# OPTIONS_HADDOCK hide #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Weak
@@ -20,7 +26,6 @@ module GHC.Weak where
 
 import GHC.Base
 import Data.Maybe
-import GHC.IO          ( IO(..), unIO )
 import Data.Typeable
 
 {-|