import EXCEPTION ( catchAllIO )
#endif
+import CString ( CString, peekCString )
import DATA_IOREF ( IORef, readIORef, writeIORef )
import DATA_INT
#else
import List ( isPrefixOf )
import Util ( dropList )
-import MarshalArray
+-- import Foreign.Marshal.Array
import Foreign
-import CString
+-- import CString
#endif
#ifdef mingw32_HOST_OS