projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Handle hierarchical module names in External Core tools
[ghc-hetmet.git]
/
utils
/
ext-core
/
Prep.hs
diff --git
a/utils/ext-core/Prep.hs
b/utils/ext-core/Prep.hs
index
352108e
..
0a105c1
100644
(file)
--- 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
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) =
qlookup :: (Ord a, Show a) => (Envs -> Env a b) -> Env a b -> (Mname,a) -> b
qlookup selector local_env (m,k) =