Revision d66aa238 htools/Ganeti/HTools/Program.hs

b/htools/Ganeti/HTools/Program.hs
39 39

  
40 40
-- | Supported binaries.
41 41
personalities :: [(String,
42
                   (Options -> [String] -> IO (), [OptType], [ArgCompletion]))]
42
                   (Options -> [String] -> IO (), IO [OptType],
43
                    [ArgCompletion]))]
43 44
personalities = [ ("hail",   (Hail.main,   Hail.options,   Hail.arguments))
44 45
                , ("hbal",   (Hbal.main,   Hbal.options,   Hbal.arguments))
45 46
                , ("hcheck", (Hcheck.main, Hcheck.options, Hcheck.arguments))

Also available in: Unified diff