projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix External Core interpreter
[ghc-hetmet.git]
/
utils
/
ext-core
/
Printer.hs
diff --git
a/utils/ext-core/Printer.hs
b/utils/ext-core/Printer.hs
index
4e42445
..
0ae4b18
100644
(file)
--- a/
utils/ext-core/Printer.hs
+++ b/
utils/ext-core/Printer.hs
@@
-85,7
+85,7
@@
pqname (m,v) = pmname m <> pname v
pmname Nothing = empty
pmname (Just m) = panmname m <> char '.'
pmname Nothing = empty
pmname (Just m) = panmname m <> char '.'
-panmname (M (pkgName, parents, name)) =
+panmname (M (P pkgName, parents, name)) =
let parentStrs = map pname parents in
pname pkgName <> char ':' <>
-- This is to be sure to not print out:
let parentStrs = map pname parents in
pname pkgName <> char ':' <>
-- This is to be sure to not print out: