X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fext-core%2FPrinter.hs;fp=utils%2Fext-core%2FPrinter.hs;h=0ae4b18f5029a11b65b2def7e273038b0372593e;hp=4e424452c3e099653617bf097f27434367342224;hb=c287bea94592fffe63f85831ab651c28d64e4d6e;hpb=652a316b23383ea5983b85c7b2ecf8de358f3bd0

diff --git a/utils/ext-core/Printer.hs b/utils/ext-core/Printer.hs
index 4e42445..0ae4b18 100644
--- 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 '.'
 
-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: