diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 13:58:20 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 13:58:20 +0000 |
| commit | 5572f26db9b94f3d802c4cacfae11084aa3eebe0 (patch) | |
| tree | 57a49b01f1c19f3302e04c25a7c603d61eb0ee18 /compiler/cmm | |
| parent | 867426b744fd4bb73f518924cb2cc051b0c55d5a (diff) | |
| download | haskell-5572f26db9b94f3d802c4cacfae11084aa3eebe0.tar.gz | |
(F)SLIT -> (f)sLit in CmmLint
Diffstat (limited to 'compiler/cmm')
| -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 () |