From: simonmar <unknown>
Date: Mon, 15 Jul 2002 16:02:12 +0000 (+0000)
Subject: [project @ 2002-07-15 16:02:11 by simonmar]
X-Git-Tag: nhc98-1-18-release~946
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2fec6a84226c1b78239e99a3883e31faedb62f46;p=ghc-base.git

[project @ 2002-07-15 16:02:11 by simonmar]
Remove for extra commas in export lists (GHC is a little too lenient).
Patch from Ross Paterson.
---

diff --git a/Foreign/C/TypesISO.hs b/Foreign/C/TypesISO.hs
index d11d93c..6a364be 100644
--- a/Foreign/C/TypesISO.hs
+++ b/Foreign/C/TypesISO.hs
@@ -21,7 +21,7 @@ module Foreign.C.TypesISO
 
 	  -- Numeric types, instances of: Eq, Ord, Num, Read, Show, Enum,
 	  -- Typeable, Storable
-	, CClock(..),   CTime(..),
+	, CClock(..),   CTime(..)
 
           -- Instances of: Eq and Storable
 	, CFile,        CFpos,     CJmpBuf
diff --git a/Foreign/ForeignPtr.hs b/Foreign/ForeignPtr.hs
index 9336ec9..6b3fb88 100644
--- a/Foreign/ForeignPtr.hs
+++ b/Foreign/ForeignPtr.hs
@@ -18,7 +18,7 @@
 module Foreign.ForeignPtr
         ( 
 	-- * Finalised data pointers
-	  ForeignPtr,            -- abstract, instance of: Eq
+	  ForeignPtr             -- abstract, instance of: Eq
         , newForeignPtr          -- :: Ptr a -> IO () -> IO (ForeignPtr a)
         , addForeignPtrFinalizer -- :: ForeignPtr a -> IO () -> IO ()
 	, withForeignPtr         -- :: ForeignPtr a -> (Ptr a -> IO b) -> IO b
diff --git a/Foreign/StablePtr.hs b/Foreign/StablePtr.hs
index cc53e9c..17c219e 100644
--- a/Foreign/StablePtr.hs
+++ b/Foreign/StablePtr.hs
@@ -17,7 +17,7 @@
 
 module Foreign.StablePtr
         ( -- * Stable references to Haskell values
-	  StablePtr,         -- abstract
+	  StablePtr          -- abstract
         , newStablePtr       -- :: a -> IO (StablePtr a)
         , deRefStablePtr     -- :: StablePtr a -> IO a
         , freeStablePtr      -- :: StablePtr a -> IO ()
diff --git a/System/Environment.hs b/System/Environment.hs
index f99df14..c20d7d7 100644
--- a/System/Environment.hs
+++ b/System/Environment.hs
@@ -14,7 +14,7 @@
 
 module System.Environment
     ( 
-    , getArgs	    -- :: IO [String]
+      getArgs	    -- :: IO [String]
     , getProgName   -- :: IO String
     , getEnv        -- :: String -> IO String
   ) where