From: ross <unknown>
Date: Thu, 3 Feb 2005 10:32:20 +0000 (+0000)
Subject: [project @ 2005-02-03 10:32:11 by ross]
X-Git-Tag: nhc98-1-18-release~29
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=d9a0d6f44a930da4ae49678908e37793d693467c

[project @ 2005-02-03 10:32:11 by ross]
hide GHC internals from Haddock
---

diff --git a/GHC/Arr.lhs b/GHC/Arr.lhs
index b376c2f..3de82ee 100644
--- a/GHC/Arr.lhs
+++ b/GHC/Arr.lhs
@@ -14,6 +14,7 @@
 -- 
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Arr where
 
 import {-# SOURCE #-} GHC.Err ( error )
diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 7d310b7..bf37476 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -81,6 +81,7 @@ Other Prelude modules are much easier with fewer complex dependencies.
 
 #include "MachDeps.h"
 
+-- #hide
 module GHC.Base
 	(
 	module GHC.Base,
diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs
index 0e74dc7..6dbe991 100644
--- a/GHC/Conc.lhs
+++ b/GHC/Conc.lhs
@@ -14,6 +14,7 @@
 -- 
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Conc
 	( ThreadId(..)
 
diff --git a/GHC/ConsoleHandler.hs b/GHC/ConsoleHandler.hs
index 8a9e2e0..646ae72 100644
--- a/GHC/ConsoleHandler.hs
+++ b/GHC/ConsoleHandler.hs
@@ -12,6 +12,7 @@
 -- Installing Win32 console handlers.
 -- 
 -----------------------------------------------------------------------------
+-- #hide
 module GHC.ConsoleHandler
 #ifndef mingw32_HOST_OS
 	where
diff --git a/GHC/Dotnet.hs b/GHC/Dotnet.hs
index 64a84b7..d371427 100644
--- a/GHC/Dotnet.hs
+++ b/GHC/Dotnet.hs
@@ -12,6 +12,7 @@
 -- Primitive operations and types for doing .NET interop
 -- 
 -----------------------------------------------------------------------------
+-- #hide
 module GHC.Dotnet 
 	( Object
 	, unmarshalObject
diff --git a/GHC/Enum.lhs b/GHC/Enum.lhs
index 655b53f..89c8b67 100644
--- a/GHC/Enum.lhs
+++ b/GHC/Enum.lhs
@@ -14,6 +14,7 @@
 -- 
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Enum(
 	Bounded(..), Enum(..),
 	boundedEnumFrom, boundedEnumFromThen,
diff --git a/GHC/Err.lhs b/GHC/Err.lhs
index 53dedf1..85453aa 100644
--- a/GHC/Err.lhs
+++ b/GHC/Err.lhs
@@ -19,6 +19,7 @@
 -- 
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Err 
        (
          irrefutPatError
diff --git a/GHC/Exception.lhs b/GHC/Exception.lhs
index fb9e7aa..0f9223d 100644
--- a/GHC/Exception.lhs
+++ b/GHC/Exception.lhs
@@ -14,6 +14,7 @@
 -- 
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Exception 
 	( module GHC.Exception, 
 	  Exception(..), AsyncException(..), 
diff --git a/GHC/Float.lhs b/GHC/Float.lhs
index 9831ec9..c4003b4 100644
--- a/GHC/Float.lhs
+++ b/GHC/Float.lhs
@@ -16,6 +16,7 @@
 
 #include "ieee-flpt.h"
 
+-- #hide
 module GHC.Float( module GHC.Float, Float#, Double# )  where
 
 import Data.Maybe
diff --git a/GHC/ForeignPtr.hs b/GHC/ForeignPtr.hs
index f6a61c1..359333d 100644
--- a/GHC/ForeignPtr.hs
+++ b/GHC/ForeignPtr.hs
@@ -13,6 +13,7 @@
 -- 
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.ForeignPtr
   (
 	ForeignPtr(..),
diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index 2ea5c38..513a4a4 100644
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -17,6 +17,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Handle (
   withHandle, withHandle', withHandle_,
   wantWritableHandle, wantReadableHandle, wantSeekableHandle,
diff --git a/GHC/IO.hs b/GHC/IO.hs
index 6cc8aaa..d8dbbb9 100644
--- a/GHC/IO.hs
+++ b/GHC/IO.hs
@@ -16,6 +16,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.IO ( 
    hWaitForInput, hGetChar, hGetLine, hGetContents, hPutChar, hPutStr,
    commitBuffer',	-- hack, see below
diff --git a/GHC/IOBase.lhs b/GHC/IOBase.lhs
index a58ee79..0a3cfca 100644
--- a/GHC/IOBase.lhs
+++ b/GHC/IOBase.lhs
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.IOBase(
     IO(..), unIO, failIO, liftIO, bindIO, thenIO, returnIO, 
     unsafePerformIO, unsafeInterleaveIO,
diff --git a/GHC/Int.hs b/GHC/Int.hs
index 4416bfe..e48656d 100644
--- a/GHC/Int.hs
+++ b/GHC/Int.hs
@@ -15,6 +15,7 @@
 
 #include "MachDeps.h"
 
+-- #hide
 module GHC.Int (
     Int8(..), Int16(..), Int32(..), Int64(..))
     where
diff --git a/GHC/List.lhs b/GHC/List.lhs
index 0211965..3dd0da1 100644
--- a/GHC/List.lhs
+++ b/GHC/List.lhs
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.List (
    -- [] (..),		-- Not Haskell 98; built in syntax
 
diff --git a/GHC/Num.lhs b/GHC/Num.lhs
index 76d6c8b..b5e27a8 100644
--- a/GHC/Num.lhs
+++ b/GHC/Num.lhs
@@ -23,6 +23,7 @@
 #error Please define LEFTMOST_BIT to be 2^(SIZEOF_HSWORD*8-1)
 #endif
 
+-- #hide
 module GHC.Num where
 
 import {-# SOURCE #-} GHC.Err
diff --git a/GHC/PArr.hs b/GHC/PArr.hs
index 8ce4488..be5ff94 100644
--- a/GHC/PArr.hs
+++ b/GHC/PArr.hs
@@ -71,6 +71,7 @@
 --  * We might want to add bounds checks that can be deactivated.
 --
 
+-- #hide
 module GHC.PArr (
   -- [::],		-- Built-in syntax
 
diff --git a/GHC/Pack.lhs b/GHC/Pack.lhs
index 17d371e..5953f28 100644
--- a/GHC/Pack.lhs
+++ b/GHC/Pack.lhs
@@ -19,6 +19,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Pack
        (
 	-- (**) - emitted by compiler.
diff --git a/GHC/Ptr.lhs b/GHC/Ptr.lhs
index 31daa5f..222524c 100644
--- a/GHC/Ptr.lhs
+++ b/GHC/Ptr.lhs
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Ptr where
 
 import GHC.Base
diff --git a/GHC/Read.lhs b/GHC/Read.lhs
index e24cbe5..9ade045 100644
--- a/GHC/Read.lhs
+++ b/GHC/Read.lhs
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Read 
   ( Read(..)   -- class
   
diff --git a/GHC/Real.lhs b/GHC/Real.lhs
index c12146b..31e8160 100644
--- a/GHC/Real.lhs
+++ b/GHC/Real.lhs
@@ -15,6 +15,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Real where
 
 import {-# SOURCE #-} GHC.Err
diff --git a/GHC/ST.lhs b/GHC/ST.lhs
index ebfb224..cdccb18 100644
--- a/GHC/ST.lhs
+++ b/GHC/ST.lhs
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.ST where
 
 import GHC.Base
diff --git a/GHC/STRef.lhs b/GHC/STRef.lhs
index 9824b15..efaa578 100644
--- a/GHC/STRef.lhs
+++ b/GHC/STRef.lhs
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.STRef where
 
 import GHC.ST
diff --git a/GHC/Show.lhs b/GHC/Show.lhs
index 133e2d5..f01e29b 100644
--- a/GHC/Show.lhs
+++ b/GHC/Show.lhs
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Show
 	(
 	Show(..), ShowS,
diff --git a/GHC/Stable.lhs b/GHC/Stable.lhs
index b52e756..13194f5 100644
--- a/GHC/Stable.lhs
+++ b/GHC/Stable.lhs
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Stable 
 	( StablePtr(..)
 	, newStablePtr		-- :: a -> IO (StablePtr a)    
diff --git a/GHC/Storable.lhs b/GHC/Storable.lhs
index 7e3c7da..3a53f4b 100644
--- a/GHC/Storable.lhs
+++ b/GHC/Storable.lhs
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Storable
 	( readWideCharOffPtr  
 	, readIntOffPtr       
diff --git a/GHC/TopHandler.lhs b/GHC/TopHandler.lhs
index 829752e..b1ac1b8 100644
--- a/GHC/TopHandler.lhs
+++ b/GHC/TopHandler.lhs
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.TopHandler (
    runMainIO, runIO, runNonIO, reportStackOverflow, reportError
   ) where
diff --git a/GHC/Unicode.hs b/GHC/Unicode.hs
index d5846c1..52d14f3 100644
--- a/GHC/Unicode.hs
+++ b/GHC/Unicode.hs
@@ -15,6 +15,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Unicode (
     isAscii, isLatin1, isControl,
     isAsciiUpper, isAsciiLower,
diff --git a/GHC/Weak.lhs b/GHC/Weak.lhs
index cd82b76..5935f18 100644
--- a/GHC/Weak.lhs
+++ b/GHC/Weak.lhs
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Weak where
 
 import GHC.Base
diff --git a/GHC/Word.hs b/GHC/Word.hs
index eb0a9c3..022a85e 100644
--- a/GHC/Word.hs
+++ b/GHC/Word.hs
@@ -16,6 +16,7 @@
 
 #include "MachDeps.h"
 
+-- #hide
 module GHC.Word (
     Word(..), Word8(..), Word16(..), Word32(..), Word64(..),
     toEnumError, fromEnumError, succError, predError)