[rename Warnings to FrontEnd.Warnings, make E/ToHs into a warning monad.
John Meacham <john@repetae.net>**20070528001133] hunk ./E/FromHs.hs 43
+import FrontEnd.Warning
hunk ./E/FromHs.hs 295
+    ceSrcLoc :: SrcLoc,
hunk ./E/FromHs.hs 299
-newtype Ce t a = Ce (RWST CeEnv () Int t a)
+newtype Ce t a = Ce (RWST CeEnv [Warning] Int t a)
hunk ./E/FromHs.hs 302
+instance Monad t => MonadWarn (Ce t) where
+    addWarning w = Ce $ tell [w]
+
+instance Monad t => MonadSrcLoc (Ce t) where
+    getSrcLoc = asks ceSrcLoc
+
+instance Monad t => MonadSetSrcLoc (Ce t) where
+    withSrcLoc sl = local (\ce -> ce { ceSrcLoc = sl })
+
hunk ./E/FromHs.hs 346
+        ceSrcLoc = bogusASrcLoc,
hunk ./E/FromHs.hs 382
-        cts <- mapM lookupCType ts
+        cts <- mapM lookupCType (filter (not . sortKindLike) ts)
hunk ./FrontEnd/Exports.hs 23
-import Warning
+import FrontEnd.Warning
hunk ./FrontEnd/FrontEnd.hs 22
-import Warning
+import FrontEnd.Warning
hunk ./FrontEnd/HsErrors.hs 19
-import Warning
+import FrontEnd.Warning
hunk ./FrontEnd/Lexer.hs 22
-import FrontEnd.ParseMonad
hunk ./FrontEnd/Lexer.hs 26
-import Warning
+
+import FrontEnd.ParseMonad
+import FrontEnd.Warning
hunk ./FrontEnd/ParseMonad.hs 29
-import FrontEnd.SrcLoc
hunk ./FrontEnd/ParseMonad.hs 30
-import Warning
+
+import FrontEnd.SrcLoc
+import FrontEnd.Warning
hunk ./FrontEnd/Rename.hs 92
-import Warning
+import FrontEnd.Warning
hunk ./FrontEnd/Tc/Class.hs 32
-import Warning
+import FrontEnd.Warning
hunk ./FrontEnd/Tc/Module.hs 41
-import Warning
+import FrontEnd.Warning
hunk ./FrontEnd/Tc/Monad.hs 83
-import Warning
+import FrontEnd.Warning
hunk ./FrontEnd/TypeSynonyms.hs 24
-import Warning
+import FrontEnd.Warning
hunk ./FrontEnd/TypeSyns.hs 12
-import Warning
+import FrontEnd.Warning
hunk ./FrontEnd/Warning.hs 1
-module Warning(Warning(..), MonadWarn(..), processErrors, warn, warnF, err, addDiag, addWarn, processIOErrors, printIOErrors) where
+module FrontEnd.Warning(
+    Warning(..),
+    MonadWarn(..),
+    processErrors,
+    warn,
+    warnF,
+    err,
+    addDiag,
+    addWarn,
+    processIOErrors,
+    printIOErrors
+    ) where
hunk ./Ho/Build.hs 57
-import Warning
+import FrontEnd.Warning
hunk ./Ho/Build.hs 99
-findFirstFile err [] = Warning.err "missing-dep" ("Module not found: " ++ err) >> return (undefined,emptyFileDep,undefined)
+findFirstFile err [] = FrontEnd.Warning.err "missing-dep" ("Module not found: " ++ err) >> return (undefined,emptyFileDep,undefined)
hunk ./Interactive.hs 47
-import Warning
+import FrontEnd.Warning