X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcShowTix.hs;h=0d17668416385e3e6dd700d5c198f3bb7310d30e;hb=10704b34c1928dde3d0ef33fe37c3eb7b948975f;hp=c353e1b2780e80bad78c565f25005ddeca59dbc0;hpb=4799dfb37be922c17451f8e0f7c8d765a7a7eaab;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcShowTix.hs b/utils/hpc/HpcShowTix.hs
index c353e1b..0d17668 100644
--- 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)