External Core typechecker - improve handling of coercions

[ghc-hetmet.git] / utils / hpc / HpcShowTix.hs

diff --git a/utils/hpc/HpcShowTix.hs b/utils/hpc/HpcShowTix.hs
index c353e1b..0d17668 100644 (file)
--- a/utils/hpc/HpcShowTix.hs
+++ b/utils/hpc/HpcShowTix.hs
@@ -38,7 +38,7 @@ showtix_main flags (prog:modNames) = do
     Nothing -> hpcError showtix_plugin $ "could not read .tix file : "  ++ prog
     Just (Tix tixs) -> do
        tixs_mixs <- sequence
-               [ do mix <- readMixWithFlags hpcflags1 (tixModuleName tix) 
+               [ do mix <- readMixWithFlags hpcflags1 (Right tix)
                     return $ (tix,mix)
                | tix <- tixs
               , allowModule hpcflags1 (tixModuleName tix)