[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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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