X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmCPSGen.hs;h=5d691f8e5c6f32b8c79592fdac1fa293435e8fdd;hb=ddb7062b0674e8a08bd90b4eca0b9379195d5e40;hp=b5f51a98b95162f5ed44f685114a4cf4db823e02;hpb=79d422b3a9e89f0d6dc3ad2383b2c8bd33b5a1d2;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmCPSGen.hs b/compiler/cmm/CmmCPSGen.hs
index b5f51a9..5d691f8 100644
--- a/compiler/cmm/CmmCPSGen.hs
+++ b/compiler/cmm/CmmCPSGen.hs
@@ -23,8 +23,7 @@ import ForeignCall
 import Constants
 import StaticFlags
 import Unique
-import Maybe
-import List
+import Data.Maybe
 import FastString
 
 import Panic
@@ -260,8 +259,8 @@ foreignCall uniques call results arguments =
 -- Save/restore the thread state in the TSO
 
 suspendThread, resumeThread :: CmmExpr
-suspendThread = CmmLit (CmmLabel (mkRtsCodeLabel (sLit "suspendThread")))
-resumeThread  = CmmLit (CmmLabel (mkRtsCodeLabel (sLit "resumeThread")))
+suspendThread = CmmLit (CmmLabel (mkRtsCodeLabel (fsLit "suspendThread")))
+resumeThread  = CmmLit (CmmLabel (mkRtsCodeLabel (fsLit "resumeThread")))
 
 -- This stuff can't be done in suspendThread/resumeThread, because it
 -- refers to global registers which aren't available in the C world.