From: simonmar <unknown>
Date: Thu, 14 Mar 2002 16:26:40 +0000 (+0000)
Subject: [project @ 2002-03-14 16:26:40 by simonmar]
X-Git-Tag: nhc98-1-18-release~1090
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=042f0fc377753bc5fc62b3bc7de82e36e77f9c83;p=ghc-base.git

[project @ 2002-03-14 16:26:40 by simonmar]
Add class Splittable that accidentally got dropped on the floor when
we moved over to the new libraries.
---

diff --git a/GHC/Exts.hs b/GHC/Exts.hs
index d75dc5a..c5f0ca6 100644
--- a/GHC/Exts.hs
+++ b/GHC/Exts.hs
@@ -8,7 +8,7 @@
 -- Stability   :  experimental
 -- Portability :  non-portable
 --
--- $Id: Exts.hs,v 1.2 2002/01/02 15:01:27 simonmar Exp $
+-- $Id: Exts.hs,v 1.3 2002/03/14 16:26:40 simonmar Exp $
 --
 -- GHC Extensions: this is the Approved Way to get at GHC-specific stuff.
 --
@@ -25,6 +25,9 @@ module GHC.Exts
 	-- shifty wrappers from GHC.Base
 	shiftL#, shiftRL#, iShiftL#, iShiftRA#, iShiftRL#,
 
+	-- for linear implicit parameters:
+	Splittable(..),
+
         -- and finally, all the unboxed primops of GHC!
         module GHC.Prim
 
@@ -37,3 +40,6 @@ import GHC.Base
 import GHC.Word
 import GHC.Num
 import GHC.Float
+
+class Splittable t where
+  split :: t -> (t,t)