From 88972138e5fc8e0b67ec24d29e238295c4bb84a1 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 28 Jan 1999 11:33:44 +0000
Subject: [PATCH] [project @ 1999-01-28 11:33:42 by simonpj] Remove unnecessary
imports
---
ghc/lib/exts/ByteArray.lhs | 3 +--
ghc/lib/misc/FiniteMap.lhs | 2 --
ghc/lib/misc/SocketPrim.lhs | 2 +-
3 files changed, 2 insertions(+), 5 deletions(-)
diff --git a/ghc/lib/exts/ByteArray.lhs b/ghc/lib/exts/ByteArray.lhs
index 60c9fedd1fc9..6a9002362642 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 8436c8ccbbf2..fda9b48dd220 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 1d2f9c88bf00..23f6a4f6ac1d 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
)
--
GitLab