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
let writeSummary filename cmp = do
let mods' = sortBy cmp mods
-
-
-
putStrLn $ "Writing: " ++ (filename ++ ".html")
- writeFile (dest_dir ++ "/" ++ filename ++ ".html") $
+
+ writeFileUsing (dest_dir ++ "/" ++ filename ++ ".html") $
"<html>" ++
"<style type=\"text/css\">" ++
"table.bar { background-color: #f25913; }\n" ++
let addLines = unlines . map (uncurry addLine) . zip [1 :: Int ..] . lines
let fileName = modName0 ++ ".hs.html"
putStrLn $ "Writing: " ++ fileName
- writeFile (dest_dir ++ "/" ++ fileName) $
+ writeFileUsing (dest_dir ++ "/" ++ fileName) $
unlines [ "<html><style type=\"text/css\">",
"span.lineno { color: white; background: #aaaaaa; border-right: solid white 12px }",
if invertOutput
------------------------------------------------------------------------------
+
+writeFileUsing :: String -> String -> IO ()
+writeFileUsing filename text = do
+ let dest_dir = reverse . dropWhile (\ x -> x /= '/') . reverse $ filename
+
+-- We need to check for the dest_dir each time, because we use sub-dirs for
+-- packages, and a single .tix file might contain information about
+-- many package.
+
+#if __GLASGOW_HASKELL__ >= 604
+ -- create the dest_dir if needed
+ createDirectoryIfMissing True dest_dir
+#endif
+
+ writeFile filename text
+
+------------------------------------------------------------------------------
-- global color pallete
red,green,yellow :: String
projects / ghc-hetmet.git / commitdiff