Warning Police: Unused imports

[ghc-hetmet.git] / utils / hpc / Hpc.hs

diff --git a/utils/hpc/Hpc.hs b/utils/hpc/Hpc.hs
index d567a0f..3eb25d2 100644 (file)
--- a/utils/hpc/Hpc.hs
+++ b/utils/hpc/Hpc.hs
@@ -1,7 +1,6 @@
 -- (c) 2007 Andy Gill
 
 -- Main driver for Hpc
-import Trace.Hpc.Tix
 import HpcFlags
 import System.Environment
 import System.Exit
@@ -10,6 +9,8 @@ import System.Console.GetOpt
 import HpcReport
 import HpcMarkup
 import HpcCombine
+import HpcShowTix
+import HpcDraft
 
 helpList :: IO ()
 helpList =
@@ -18,16 +19,18 @@ 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
@@ -72,6 +75,8 @@ hooks = [ help_plugin
         , report_plugin 
        , markup_plugin
        , combine_plugin
+       , showtix_plugin
+       , draft_plugin
        , version_plugin
         ]
 
@@ -116,4 +121,4 @@ version_plugin = Plugin { name = "version"
 version_main _ _ = putStrLn $ "hpc tools, version 0.5-dev"
 
 
-------------------------------------------------------------------------------
+------------------------------------------------------------------------------
\ No newline at end of file