cmmLint, cmmLintTop
) where
-#include "HsVersions.h"
-
import Cmm
import CLabel
import MachOp
import PprCmm
import Unique
import Constants
+import FastString
import Control.Monad
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 ()