projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Include HsVersions.h where necessary
[ghc-hetmet.git]
/
compiler
/
cmm
/
CmmLint.hs
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
cmmLint, cmmLintTop
) where
-#include "HsVersions.h"
-
import Cmm
import CLabel
import MachOp
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
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 ()
Right _ -> Nothing
lintCmmTop :: (GenCmmTop h i (ListGraph CmmStmt)) -> CmmLint ()