Handle hierarchical module names in External Core tools

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

diff --git a/utils/ext-core/Interp.hs b/utils/ext-core/Interp.hs
index b2f68bf..882ec8e 100644 (file)
--- a/utils/ext-core/Interp.hs
+++ b/utils/ext-core/Interp.hs
@@ -378,7 +378,7 @@ mlookup _          env       Nothing  = env
 mlookup globalEnv  _         (Just m) = 
     case elookup globalEnv m of
       Just env' -> env'
 mlookup globalEnv  _         (Just m) = 
     case elookup globalEnv m of
       Just env' -> env'

-      Nothing -> error ("undefined module name: " ++ show m)
+      Nothing -> error ("Interp: undefined module name: " ++ show m)

 
 qlookup :: Menv -> Venv -> (Mname,Var) -> Value
 qlookup globalEnv env (m,k) =   
 
 qlookup :: Menv -> Venv -> (Mname,Var) -> Value
 qlookup globalEnv env (m,k) =