Adding draft and show to hpc

we now have 
  
  hpc draft <TIX_FILE>

This drafts up a candidate overlay for 100% coverage.
 
and

  hpc show  <TIX_FILE>

This show verbose details about a tix file; mainly for debugging.

1 files changed, 8 insertions, 2 deletions

diff --git a/utils/hpc/Hpc.hs b/utils/hpc/Hpc.hs
index d567a0fad9..5db2b30527 100644
--- a/utils/hpc/Hpc.hs
+++ b/utils/hpc/Hpc.hs
@@ -10,6 +10,8 @@ import System.Console.GetOpt
 import HpcReport
 import HpcMarkup
 import HpcCombine
+import HpcShowTix
+import HpcDraft
 
 helpList :: IO ()
 helpList =
@@ -18,16 +20,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 +76,8 @@ hooks = [ help_plugin
         , report_plugin 
 	, markup_plugin
 	, combine_plugin
+	, showtix_plugin
+	, draft_plugin
 	, version_plugin
         ]
 
@@ -116,4 +122,4 @@ version_plugin = Plugin { name = "version"
 version_main _ _ = putStrLn $ "hpc tools, version 0.5-dev"
 
 
-------------------------------------------------------------------------------
+------------------------------------------------------------------------------
\ No newline at end of file