Statistics
| Branch: | Tag: | Revision:

root / htools / Ganeti / HTools / Program.hs @ 29a30533

History | View | Annotate | Download (1.8 kB)

1 9f13be88 Iustin Pop
{-| Small module holding program definitions.
2 9f13be88 Iustin Pop
3 9f13be88 Iustin Pop
-}
4 9f13be88 Iustin Pop
5 9f13be88 Iustin Pop
{-
6 9f13be88 Iustin Pop
7 9f13be88 Iustin Pop
Copyright (C) 2011, 2012 Google Inc.
8 9f13be88 Iustin Pop
9 9f13be88 Iustin Pop
This program is free software; you can redistribute it and/or modify
10 9f13be88 Iustin Pop
it under the terms of the GNU General Public License as published by
11 9f13be88 Iustin Pop
the Free Software Foundation; either version 2 of the License, or
12 9f13be88 Iustin Pop
(at your option) any later version.
13 9f13be88 Iustin Pop
14 9f13be88 Iustin Pop
This program is distributed in the hope that it will be useful, but
15 9f13be88 Iustin Pop
WITHOUT ANY WARRANTY; without even the implied warranty of
16 9f13be88 Iustin Pop
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17 9f13be88 Iustin Pop
General Public License for more details.
18 9f13be88 Iustin Pop
19 9f13be88 Iustin Pop
You should have received a copy of the GNU General Public License
20 9f13be88 Iustin Pop
along with this program; if not, write to the Free Software
21 9f13be88 Iustin Pop
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
22 9f13be88 Iustin Pop
02110-1301, USA.
23 9f13be88 Iustin Pop
24 9f13be88 Iustin Pop
-}
25 9f13be88 Iustin Pop
26 9f13be88 Iustin Pop
module Ganeti.HTools.Program
27 9f13be88 Iustin Pop
  ( personalities
28 9f13be88 Iustin Pop
  ) where
29 9f13be88 Iustin Pop
30 22278fa7 Iustin Pop
import Ganeti.Common (ArgCompletion)
31 9f13be88 Iustin Pop
import Ganeti.HTools.CLI (OptType, Options)
32 9f13be88 Iustin Pop
33 9f13be88 Iustin Pop
import qualified Ganeti.HTools.Program.Hail as Hail
34 9f13be88 Iustin Pop
import qualified Ganeti.HTools.Program.Hbal as Hbal
35 22e513e7 Agata Murawska
import qualified Ganeti.HTools.Program.Hcheck as Hcheck
36 9f13be88 Iustin Pop
import qualified Ganeti.HTools.Program.Hscan as Hscan
37 9f13be88 Iustin Pop
import qualified Ganeti.HTools.Program.Hspace as Hspace
38 2922d2c5 René Nussbaumer
import qualified Ganeti.HTools.Program.Hinfo as Hinfo
39 9f13be88 Iustin Pop
40 9f13be88 Iustin Pop
-- | Supported binaries.
41 22278fa7 Iustin Pop
personalities :: [(String,
42 d66aa238 Iustin Pop
                   (Options -> [String] -> IO (), IO [OptType],
43 d66aa238 Iustin Pop
                    [ArgCompletion]))]
44 22278fa7 Iustin Pop
personalities = [ ("hail",   (Hail.main,   Hail.options,   Hail.arguments))
45 22278fa7 Iustin Pop
                , ("hbal",   (Hbal.main,   Hbal.options,   Hbal.arguments))
46 22278fa7 Iustin Pop
                , ("hcheck", (Hcheck.main, Hcheck.options, Hcheck.arguments))
47 22278fa7 Iustin Pop
                , ("hscan",  (Hscan.main,  Hscan.options,  Hscan.arguments ))
48 22278fa7 Iustin Pop
                , ("hspace", (Hspace.main, Hspace.options, Hspace.arguments))
49 22278fa7 Iustin Pop
                , ("hinfo",  (Hinfo.main,  Hinfo.options,  Hinfo.arguments))
50 9f13be88 Iustin Pop
                ]