X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fext-core%2FInterp.hs;h=882ec8eab5169d5492c567e886cb608b27dbefe1;hp=b2f68bfdf49087270f221ccc693b4958128f0da7;hb=6b085eeada6c3c93599fa4b6d77572abc419c08c;hpb=87c93cf56c83abf0148c91d5972dbe65dc72c38a

diff --git a/utils/ext-core/Interp.hs b/utils/ext-core/Interp.hs
index b2f68bf..882ec8e 100644
--- 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'
-      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) =