X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fext-core%2FPrep.hs;fp=utils%2Fext-core%2FPrep.hs;h=0a105c1b5229667cba1ef4292ad9cb6e69a286d4;hp=352108e198eaa92b5ec2a0c895b001c5e9fd2209;hb=6b085eeada6c3c93599fa4b6d77572abc419c08c;hpb=87c93cf56c83abf0148c91d5972dbe65dc72c38a

diff --git a/utils/ext-core/Prep.hs b/utils/ext-core/Prep.hs
index 352108e..0a105c1 100644
--- a/utils/ext-core/Prep.hs
+++ b/utils/ext-core/Prep.hs
@@ -127,7 +127,7 @@ prepModule globalEnv (Module mn tdefs vdefgs) =
     mlookup selector _  (Just m) =   
       case elookup globalEnv m of
         Just env -> selector env
-        Nothing -> error ("undefined module name: " ++ show m)
+        Nothing -> error ("Prep: undefined module name: " ++ show m)
 
     qlookup ::  (Ord a, Show a) => (Envs -> Env a b) -> Env a b -> (Mname,a) -> b
     qlookup selector local_env (m,k) =