diff options
| -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 ) |