X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FPprC.hs;h=de5bf0a625aa0fbaa6b556f87532ffb2ef7d82d6;hp=5c60b8a8974a3e0f9d83fdbb0e823148a451bd4d;hb=49c98d143c382a1341e1046f5ca00819a25691ba;hpb=b00b5bc04ff36a551552470060064f0b7d84ca30

diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs
index 5c60b8a..de5bf0a 100644
--- a/compiler/cmm/PprC.hs
+++ b/compiler/cmm/PprC.hs
@@ -2,7 +2,7 @@
 --
 -- Pretty-printing of Cmm as C, suitable for feeding gcc
 --
--- (c) The University of Glasgow 2004
+-- (c) The University of Glasgow 2004-2006
 --
 -----------------------------------------------------------------------------
 
@@ -30,23 +30,21 @@ import MachOp
 import ForeignCall
 
 -- Utils
-import DynFlags		( DynFlags, DynFlag(..), dopt )
-import Unique           ( getUnique )
+import DynFlags
+import Unique
 import UniqSet
 import FiniteMap
-import UniqFM		( eltsUFM )
+import UniqFM
 import FastString
 import Outputable
 import Constants
-import StaticFlags 	( opt_Unregisterised )
 
 -- The rest
-import Data.List        ( intersperse, groupBy )
-import Data.Bits        ( shiftR )
-import Char             ( ord, chr )
-import IO               ( Handle )
-import DATA_BITS
-import Data.Word	( Word8 )
+import Data.List
+import Data.Bits
+import Data.Char
+import System.IO
+import Data.Word
 
 #ifdef DEBUG
 import PprCmm		() -- instances only
@@ -56,7 +54,7 @@ import PprCmm		() -- instances only
 #if __GLASGOW_HASKELL__ >= 504
 import Data.Array.ST
 #endif
-import MONAD_ST
+import Control.Monad.ST
 
 -- --------------------------------------------------------------------------
 -- Top level