From: ross <unknown>
Date: Thu, 3 Oct 2002 15:19:15 +0000 (+0000)
Subject: [project @ 2002-10-03 15:19:15 by ross]
X-Git-Tag: nhc98-1-18-release~823
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c0bf3d8da1e85d3dcaf94434b9fc46304ec7b39a;p=ghc-base.git

[project @ 2002-10-03 15:19:15 by ross]
Reinstate the exports of the function names, because the module must
export them, even though Hugs doesn't define them here.  The old module
export they overlapped with was there to pick up the tuple definitions
for GHC, but that probably isn't necessary with the recent GHC changes.
---

diff --git a/Data/Tuple.hs b/Data/Tuple.hs
index 16b23b4..88d2c67 100644
--- a/Data/Tuple.hs
+++ b/Data/Tuple.hs
@@ -13,7 +13,12 @@
 --
 -----------------------------------------------------------------------------
 
-module Data.Tuple where
+module Data.Tuple (
+	  fst		-- :: (a,b) -> a
+	, snd		-- :: (a,b) -> a
+	, curry		-- :: ((a, b) -> c) -> a -> b -> c
+	, uncurry	-- :: (a -> b -> c) -> ((a, b) -> c)
+  ) where
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base