diff options
| author | simonpj <unknown> | 1999-01-28 11:33:44 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1999-01-28 11:33:44 +0000 |
| commit | 88972138e5fc8e0b67ec24d29e238295c4bb84a1 (patch) | |
| tree | ada027c54c2af261953e50e1afa9c5f0d1316e5c | |
| parent | b052d2df1e9cce8b56bf2d4557020d68a1c3ab35 (diff) | |
| download | haskell-88972138e5fc8e0b67ec24d29e238295c4bb84a1.tar.gz | |
[project @ 1999-01-28 11:33:42 by simonpj]
Remove unnecessary imports
| -rw-r--r-- | ghc/lib/exts/ByteArray.lhs | 3 | ||||
| -rw-r--r-- | ghc/lib/misc/FiniteMap.lhs | 2 | ||||
| -rw-r--r-- | 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 60c9fedd1f..6a90023626 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 8436c8ccbb..fda9b48dd2 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 1d2f9c88bf..23f6a4f6ac 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 ) |