Simple QC tests for RPC calls

[ganeti-local] / htools / Ganeti / HTools / Program.hs

diff --git a/htools/Ganeti/HTools/Program.hs b/htools/Ganeti/HTools/Program.hs
index 2817e83..75870e6 100644 (file)
--- a/htools/Ganeti/HTools/Program.hs
+++ b/htools/Ganeti/HTools/Program.hs
@@ -31,6 +31,7 @@ import Ganeti.HTools.CLI (OptType, Options)
 
 import qualified Ganeti.HTools.Program.Hail as Hail
 import qualified Ganeti.HTools.Program.Hbal as Hbal
+import qualified Ganeti.HTools.Program.Hcheck as Hcheck
 import qualified Ganeti.HTools.Program.Hscan as Hscan
 import qualified Ganeti.HTools.Program.Hspace as Hspace
 import qualified Ganeti.HTools.Program.Hinfo as Hinfo
@@ -39,6 +40,7 @@ import qualified Ganeti.HTools.Program.Hinfo as Hinfo
 personalities :: [(String, (Options -> [String] -> IO (), [OptType]))]
 personalities = [ ("hail",   (Hail.main,   Hail.options))
                 , ("hbal",   (Hbal.main,   Hbal.options))
+                , ("hcheck", (Hcheck.main, Hcheck.options))
                 , ("hscan",  (Hscan.main,  Hscan.options))
                 , ("hspace", (Hspace.main, Hspace.options))
                 , ("hinfo",  (Hinfo.main,  Hinfo.options))