-- (c) 2007 Andy Gill
-- Main driver for Hpc
-import Trace.Hpc.Tix
import HpcFlags
import System.Environment
import System.Exit
import HpcReport
import HpcMarkup
import HpcCombine
+import HpcShowTix
+import HpcDraft
helpList :: IO ()
helpList =
section "Commands" help ++
section "Reporting Coverage" reporting ++
section "Processing Coverage files" processing ++
+ section "Coverage Overlays" overlays ++
section "Others" other ++
""
where
help = ["help"]
reporting = ["report","markup"]
+ overlays = ["overlay","draft"]
processing = ["combine"]
other = [ name hook
| hook <- hooks
, name hook `notElem`
- (concat [help,reporting,processing])
+ (concat [help,reporting,processing,overlays])
]
section :: String -> [String] -> String
, report_plugin
, markup_plugin
, combine_plugin
+ , showtix_plugin
+ , draft_plugin
, version_plugin
]