X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FByteCodeFFI.lhs;h=c5bdc2c61bdcc6b67be8bf1d25b95d3dd68269cd;hb=ab22f4e6456820c1b5169d75f5975a94e61f54ce;hp=ef3fd3e0d6a2b653fc03d39707224148d60975cf;hpb=6b4592943b799175dec4549882bbf06fa87a0739;p=ghc-hetmet.git

diff --git a/compiler/ghci/ByteCodeFFI.lhs b/compiler/ghci/ByteCodeFFI.lhs
index ef3fd3e..c5bdc2c 100644
--- a/compiler/ghci/ByteCodeFFI.lhs
+++ b/compiler/ghci/ByteCodeFFI.lhs
@@ -1,7 +1,8 @@
 %
-% (c) The University of Glasgow 2001
+% (c) The University of Glasgow 2001-2006
 %
-\section[ByteCodeGen]{Generate machine-code sequences for foreign import}
+
+ByteCodeGen: Generate machine-code sequences for foreign import
 
 \begin{code}
 module ByteCodeFFI ( mkMarshalCode, moan64 ) where
@@ -9,21 +10,20 @@ module ByteCodeFFI ( mkMarshalCode, moan64 ) where
 #include "HsVersions.h"
 
 import Outputable
-import SMRep		( CgRep(..), cgRepSizeW )
-import ForeignCall	( CCallConv(..) )
+import SMRep
+import ForeignCall
 import Panic
 
 -- DON'T remove apparently unused imports here .. 
 -- there is ifdeffery below
 import Control.Exception ( throwDyn )
-import DATA_BITS	( Bits(..), shiftR, shiftL )
-import Foreign		( newArray )
+import Data.Bits	( Bits(..), shiftR, shiftL )
+import Foreign		( newArray, Ptr )
 import Data.List        ( mapAccumL )
 
-import DATA_WORD	( Word8, Word32 )
-import Foreign		( Ptr )
+import Data.Word	( Word8, Word32 )
 import System.IO.Unsafe ( unsafePerformIO )
-import IO		( hPutStrLn, stderr )
+import System.IO	( hPutStrLn, stderr )
 -- import Debug.Trace	( trace )
 \end{code}