diff options
| author | Santiago Munin <santimunin@gmail.com> | 2017-05-04 15:10:54 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-05-04 18:21:39 -0400 |
| commit | 8a2c2476b300969514888cb2084d083f8d18b6b0 (patch) | |
| tree | baae7305260285d174f1694ace50943a68e5b581 /utils/hpc | |
| parent | 1829d265662ca8d052df3e5df1aa1137b19e39ce (diff) | |
| download | haskell-8a2c2476b300969514888cb2084d083f8d18b6b0.tar.gz | |
hpc: Output a legend at the top of output files
Updates hpc submodule.
Reviewers: austin, bgamari
Subscribers: rwbarton, thomie
GHC Trac Issues: #11799
Differential Revision: https://phabricator.haskell.org/D3465
Diffstat (limited to 'utils/hpc')
| -rw-r--r-- | utils/hpc/HpcMarkup.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs index fb68eacef7..ca30471ac4 100644 --- a/utils/hpc/HpcMarkup.hs +++ b/utils/hpc/HpcMarkup.hs @@ -250,6 +250,13 @@ genHtmlFromMod dest_dir flags tix theFunTotals invertOutput = do "</style>", "</head>", "<body>", + "<pre>", + concat [ + "<span class=\"decl\">", + "<span class=\"nottickedoff\">never executed</span> ", + "<span class=\"tickonlytrue\">always true</span> ", + "<span class=\"tickonlyfalse\">always false</span></span>"], + "</pre>", "<pre>"] ++ addLines content' ++ "\n</pre>\n</body>\n</html>\n"; |