projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
867426b
)
(F)SLIT -> (f)sLit in CmmLint
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 13:58:20 +0000
(13:58 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 13:58:20 +0000
(13:58 +0000)
compiler/cmm/CmmLint.hs
patch
|
blob
|
history
diff --git
a/compiler/cmm/CmmLint.hs
b/compiler/cmm/CmmLint.hs
index
c4aee8a
..
bf10135
100644
(file)
--- a/
compiler/cmm/CmmLint.hs
+++ b/
compiler/cmm/CmmLint.hs
@@
-17,8
+17,6
@@
module CmmLint (
cmmLint, cmmLintTop
) where
-#include "HsVersions.h"
-
import Cmm
import CLabel
import MachOp
@@
-43,7
+41,7
@@
cmmLintTop top = runCmmLint $ lintCmmTop top
runCmmLint :: CmmLint a -> Maybe SDoc
runCmmLint l =
case unCL l of
- Left err -> Just (ptext SLIT("Cmm lint error:") $$ nest 2 err)
+ Left err -> Just (ptext (sLit "Cmm lint error:") $$ nest 2 err)
Right _ -> Nothing
lintCmmTop :: (GenCmmTop h i (ListGraph CmmStmt)) -> CmmLint ()