X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FPack.lhs;h=5953f28dfdcc29c7a13efcdf6feed9c87600d332;hb=ad2464d7646b2b0745615f4a23967444e23fea40;hp=d63b4e0040ee9af59ff8741a04e6e594bf087a6f;hpb=b706340c451952adf230b5b8daecad8a1f34d714;p=ghc-base.git

diff --git a/GHC/Pack.lhs b/GHC/Pack.lhs
index d63b4e0..5953f28 100644
--- a/GHC/Pack.lhs
+++ b/GHC/Pack.lhs
@@ -1,5 +1,5 @@
 \begin{code}
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Pack
@@ -19,16 +19,17 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Pack
        (
 	-- (**) - emitted by compiler.
 
-	packCString#,      -- :: [Char] -> ByteArray#    **
+	packCString#,      -- :: [Char] -> ByteArray#    (**)
 	unpackCString,
-	unpackCString#,    -- :: Addr# -> [Char]	 **
-	unpackNBytes#,     -- :: Addr# -> Int# -> [Char] **
-	unpackFoldrCString#,  -- **
-	unpackAppendCString#,  -- **
+	unpackCString#,    -- :: Addr# -> [Char]	 (**)
+	unpackNBytes#,     -- :: Addr# -> Int# -> [Char] (**)
+	unpackFoldrCString#,  -- (**)
+	unpackAppendCString#,  -- (**)
        ) 
 	where