X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcMarkup.hs;h=df7e43b5eaa6f77e72ebee4c63268e690a17b0a4;hb=d64022dc071b587c20a693b7f355f69dc110b707;hp=f78a4af220cc1d4afdb601117e4e68e9bea8571d;hpb=eb546347e5eace34612005c151121fcd1f32b257;p=ghc-hetmet.git diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs index f78a4af..df7e43b 100644 --- a/utils/hpc/HpcMarkup.hs +++ b/utils/hpc/HpcMarkup.hs @@ -17,6 +17,7 @@ import Data.List import Data.Maybe(fromJust) import Data.Array import Data.Monoid +import Control.Monad import qualified HpcSet as Set ------------------------------------------------------------------------------ @@ -60,11 +61,6 @@ markup_main flags (prog:modNames) = do Nothing -> hpcError markup_plugin $ "unable to find tix file for: " ++ prog Just a -> return a -#if __GLASGOW_HASKELL__ >= 604 - -- create the dest_dir if needed - createDirectoryIfMissing True dest_dir -#endif - mods <- sequence [ genHtmlFromMod dest_dir hpcflags1 tix theFunTotals invertOutput | tix <- tixs @@ -79,11 +75,9 @@ markup_main flags (prog:modNames) = do let writeSummary filename cmp = do let mods' = sortBy cmp mods - - - putStrLn $ "Writing: " ++ (filename ++ ".html") - writeFile (dest_dir ++ "/" ++ filename ++ ".html") $ + + writeFileUsing (dest_dir ++ "/" ++ filename ++ ".html") $ "" ++ "