X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fext-core%2FCheck.hs;h=75470d5a564f9af24067dffbc996f9ad124e0d43;hb=493d09b47e4d4faec4f0696d071e3b7f4e7b84ea;hp=8b928b0f5a4a3702a96371b60f7ccc76741b3a4b;hpb=276585028d51a2516a31b91a91a1f4bba5c9f8ba;p=ghc-hetmet.git

diff --git a/utils/ext-core/Check.hs b/utils/ext-core/Check.hs
index 8b928b0..75470d5 100644
--- a/utils/ext-core/Check.hs
+++ b/utils/ext-core/Check.hs
@@ -398,7 +398,7 @@ mlookupM selector external_env _ (Just m) = do
        globalEnv <- getGlobalEnv
        case elookup globalEnv m of
          Just env' -> return (selector env')
-         Nothing -> fail ("undefined module name: " ++ show m)
+         Nothing -> fail ("Check: undefined module name: " ++ show m)
 
 qlookupM :: (Ord a, Show a) => (Envs -> Env a b) -> Env a b -> Env a b 
                   -> Qual a -> CheckResult b