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

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