diff options
| -rw-r--r-- | compiler/cmm/CmmLint.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/cmm/CmmLint.hs b/compiler/cmm/CmmLint.hs index c4aee8adb6..bf10135b5f 100644 --- 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 () |