diff options
Diffstat (limited to 'utils/hpc/HpcShowTix.hs')
| -rw-r--r-- | utils/hpc/HpcShowTix.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/hpc/HpcShowTix.hs b/utils/hpc/HpcShowTix.hs index b81f88cbff..0d17668416 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) |