Handle hierarchical module names in External Core tools

[ghc-hetmet.git] / utils / ext-core / Check.hs

diff --git a/utils/ext-core/Check.hs b/utils/ext-core/Check.hs
index 8b928b0..75470d5 100644 (file)
--- 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