X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fhpc%2FHpcShowTix.hs;h=0d17668416385e3e6dd700d5c198f3bb7310d30e;hp=b81f88cbffb3e4c4bf0a63600665c4209ef2d557;hb=c8742f253f0c0b38f977530eceaaecac55578b4b;hpb=5f4e77a5a2ea03286b795da4051272ac7c774bd7

diff --git a/utils/hpc/HpcShowTix.hs b/utils/hpc/HpcShowTix.hs
index b81f88c..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 tix
+               [ do mix <- readMixWithFlags hpcflags1 (Right tix)
                     return $ (tix,mix)
                | tix <- tixs
 	       , allowModule hpcflags1 (tixModuleName tix)