X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FClosureInfo.lhs;h=25cde6fd88c8cf92b98500c495835e55056e8ba1;hb=a197839ee00c1aa514727cd84e62c2aa3001e528;hp=37b3a5895e6503670b0b7552f23b043507eeb23f;hpb=467f588c25e6d7825a11eff018a67727b3dea71b;p=ghc-hetmet.git

diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs
index 37b3a58..25cde6f 100644
--- a/compiler/codeGen/ClosureInfo.lhs
+++ b/compiler/codeGen/ClosureInfo.lhs
@@ -139,7 +139,7 @@ needsSRT NoC_SRT       = False
 needsSRT (C_SRT _ _ _) = True
 
 instance Outputable C_SRT where
-  ppr (NoC_SRT) = ptext SLIT("_no_srt_")
+  ppr (NoC_SRT) = ptext (sLit "_no_srt_")
   ppr (C_SRT label off bitmap) = parens (ppr label <> comma <> ppr off <> comma <> text (show bitmap))
 \end{code}
 
@@ -598,7 +598,8 @@ getCallMethod name (LFCon con) n_args
     ReturnCon con
 
 getCallMethod name (LFThunk _ _ updatable std_form_info is_fun) n_args
-  | is_fun 	-- *Might* be a function, so we must "call" it (which is always safe)
+  | is_fun 	-- it *might* be a function, so we must "call" it (which is
+                -- always safe)
   = SlowCall	-- We cannot just enter it [in eval/apply, the entry code
 		-- is the fast-entry code]