X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FExts.hs;h=4b014f1c096436300f3f63b1b5d995ecddc7a04e;hb=7baaed5bc2be1984669a531dbba9b0325e8a9262;hp=d75dc5a02b18dbeb3acc099ec3df5154e41bd757;hpb=5cd7cad9d46e4759829638d84a011e622b1ecfb6;p=ghc-base.git

diff --git a/GHC/Exts.hs b/GHC/Exts.hs
index d75dc5a..4b014f1 100644
--- a/GHC/Exts.hs
+++ b/GHC/Exts.hs
@@ -1,39 +1,43 @@
 -----------------------------------------------------------------------------
--- 
+-- |
 -- Module      :  GHC.Exts
--- Copyright   :  (c) The University of Glasgow 2001
--- License     :  BSD-style (see the file libraries/core/LICENSE)
+-- Copyright   :  (c) The University of Glasgow 2002
+-- License     :  see libraries/base/LICENSE
 -- 
--- Maintainer  :  libraries@haskell.org
--- Stability   :  experimental
--- Portability :  non-portable
---
--- $Id: Exts.hs,v 1.2 2002/01/02 15:01:27 simonmar Exp $
+-- Maintainer  :  cvs-ghc@haskell.org
+-- Stability   :  internal
+-- Portability :  non-portable (GHC Extensions)
 --
--- GHC Extensions: this is the Approved Way to get at GHC-specific stuff.
+-- GHC Extensions: this is the Approved Way to get at GHC-specific extensions.
 --
 -----------------------------------------------------------------------------
 
 module GHC.Exts
        (
-        -- the representation of some basic types:
+        -- * Representations of some basic types
         Int(..),Word(..),Float(..),Double(..),Integer(..),Char(..),
+	Ptr(..), FunPtr(..),
 
-	-- Fusion
-	build, augment,
-
-	-- shifty wrappers from GHC.Base
+        -- * Primitive operations
+        module GHC.Prim,
 	shiftL#, shiftRL#, iShiftL#, iShiftRA#, iShiftRL#,
 
-        -- and finally, all the unboxed primops of GHC!
-        module GHC.Prim
+	-- * Fusion
+	build, augment,
+
+	-- * Linear implicit parameter support
+	Splittable(..),
 
        ) where
 
 import Prelude
 
-import {-# SOURCE #-} GHC.Prim
+import GHC.Prim
 import GHC.Base
 import GHC.Word
 import GHC.Num
 import GHC.Float
+import GHC.Ptr
+
+class Splittable t where
+  split :: t -> (t,t)