Skip to content
Snippets Groups Projects
Commit 88972138 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

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

Remove unnecessary imports
parent b052d2df
No related branches found
No related tags found
No related merge requests found
...@@ -25,8 +25,7 @@ module ByteArray ...@@ -25,8 +25,7 @@ module ByteArray
import PrelArr import PrelArr
import PrelBase import PrelBase
import PrelForeign import PrelStable( StablePtr(..) )
import PrelStable
import Ix import Ix
\end{code} \end{code}
......
...@@ -627,8 +627,6 @@ glueVBal fm_l@(Branch key_l elt_l _ fm_ll fm_lr) ...@@ -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. | otherwise -- We now need the same two cases as in glueBal above.
= glueBal fm_l fm_r = glueBal fm_l fm_r
where 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_l = sizeFM fm_l
size_r = sizeFM fm_r size_r = sizeFM fm_r
\end{code} \end{code}
......
...@@ -90,7 +90,7 @@ import Foreign ...@@ -90,7 +90,7 @@ import Foreign
import IO import IO
import IOExts ( IORef, newIORef, readIORef, writeIORef ) import IOExts ( IORef, newIORef, readIORef, writeIORef )
import CString ( unpackNBytesBAIO, import CString ( unpackNBytesBAIO,
unpackCString, unpackCStringIO, unpackCStringIO,
unpackCStringLenIO, unpackCStringLenIO,
allocChars allocChars
) )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment