[project @ 1999-01-28 11:33:42 by simonpj]

Remove unnecessary imports

diff --git a/ghc/lib/exts/ByteArray.lhs b/ghc/lib/exts/ByteArray.lhs
index 60c9fed..6a90023 100644 (file)
--- a/ghc/lib/exts/ByteArray.lhs
+++ b/ghc/lib/exts/ByteArray.lhs
@@ -25,8 +25,7 @@ module ByteArray
 
 import PrelArr
 import PrelBase
-import PrelForeign
-import PrelStable
+import PrelStable( StablePtr(..) )
 import Ix
 \end{code}
 

diff --git a/ghc/lib/misc/FiniteMap.lhs b/ghc/lib/misc/FiniteMap.lhs
index 8436c8c..fda9b48 100644 (file)
--- a/ghc/lib/misc/FiniteMap.lhs
+++ b/ghc/lib/misc/FiniteMap.lhs
@@ -627,8 +627,6 @@ glueVBal fm_l@(Branch key_l elt_l _ fm_ll fm_lr)
   | otherwise          -- We now need the same two cases as in glueBal above.
   = glueBal fm_l fm_r
   where
-    (mid_key_l,mid_elt_l) = findMax fm_l
-    (mid_key_r,mid_elt_r) = findMin fm_r
     size_l = sizeFM fm_l
     size_r = sizeFM fm_r
 \end{code}

diff --git a/ghc/lib/misc/SocketPrim.lhs b/ghc/lib/misc/SocketPrim.lhs
index 1d2f9c8..23f6a4f 100644 (file)
--- a/ghc/lib/misc/SocketPrim.lhs
+++ b/ghc/lib/misc/SocketPrim.lhs
@@ -90,7 +90,7 @@ import Foreign
 import IO
 import IOExts      ( IORef, newIORef, readIORef, writeIORef )
 import CString      ( unpackNBytesBAIO,
-                     unpackCString, unpackCStringIO,
+                     unpackCStringIO,
                      unpackCStringLenIO,
                      allocChars
                    )