From: simonpj <unknown>
Date: Thu, 28 Jan 1999 11:33:44 +0000 (+0000)
Subject: [project @ 1999-01-28 11:33:42 by simonpj]
X-Git-Tag: Approximately_9120_patches~6666
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=88972138e5fc8e0b67ec24d29e238295c4bb84a1;p=ghc-hetmet.git

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