Revision 7345b69b
b/INSTALL | ||
---|---|---|
63 | 63 |
cluster balancing, etc.), then you need to have a Haskell compiler |
64 | 64 |
installed. More specifically: |
65 | 65 |
|
66 |
- `GHC <http://www.haskell.org/ghc/>`_ version 6.10 or higher
|
|
66 |
- `GHC <http://www.haskell.org/ghc/>`_ version 6.12 or higher
|
|
67 | 67 |
- or even better, `The Haskell Platform |
68 | 68 |
<http://hackage.haskell.org/platform/>`_ which gives you a simple way |
69 | 69 |
to bootstrap Haskell |
b/htools/Ganeti/HTools/CLI.hs | ||
---|---|---|
83 | 83 |
import System.Console.GetOpt |
84 | 84 |
import System.IO |
85 | 85 |
import System.Info |
86 |
import System |
|
86 |
import System.Exit
|
|
87 | 87 |
import Text.Printf (printf, hPrintf) |
88 | 88 |
|
89 | 89 |
import qualified Ganeti.HTools.Version as Version(version) |
b/htools/Ganeti/HTools/ExtLoader.hs | ||
---|---|---|
37 | 37 |
import Data.Maybe (isJust, fromJust) |
38 | 38 |
import System.FilePath |
39 | 39 |
import System.IO |
40 |
import System |
|
40 |
import System.Exit
|
|
41 | 41 |
import Text.Printf (hPrintf) |
42 | 42 |
|
43 | 43 |
import qualified Ganeti.HTools.Luxi as Luxi |
b/htools/Ganeti/HTools/IAlloc.hs | ||
---|---|---|
35 | 35 |
import Control.Monad |
36 | 36 |
import Text.JSON (JSObject, JSValue(JSArray), |
37 | 37 |
makeObj, encodeStrict, decodeStrict, fromJSObject, showJSON) |
38 |
import System (exitWith, ExitCode(..))
|
|
38 |
import System.Exit
|
|
39 | 39 |
import System.IO |
40 | 40 |
|
41 | 41 |
import qualified Ganeti.HTools.Cluster as Cluster |
b/htools/Ganeti/HTools/Program/Hail.hs | ||
---|---|---|
26 | 26 |
module Ganeti.HTools.Program.Hail (main) where |
27 | 27 |
|
28 | 28 |
import Control.Monad |
29 |
import System.Environment (getArgs) |
|
29 | 30 |
import System.IO |
30 |
import qualified System |
|
31 | 31 |
|
32 | 32 |
import qualified Ganeti.HTools.Cluster as Cluster |
33 | 33 |
|
... | ... | |
51 | 51 |
-- | Main function. |
52 | 52 |
main :: IO () |
53 | 53 |
main = do |
54 |
cmd_args <- System.getArgs
|
|
54 |
cmd_args <- getArgs |
|
55 | 55 |
(opts, args) <- parseOpts cmd_args "hail" options |
56 | 56 |
|
57 | 57 |
let shownodes = optShowNodes opts |
b/htools/Ganeti/HTools/Program/Hbal.hs | ||
---|---|---|
31 | 31 |
import Data.List |
32 | 32 |
import Data.Maybe (isJust, isNothing, fromJust) |
33 | 33 |
import Data.IORef |
34 |
import System (exitWith, ExitCode(..)) |
|
34 |
import System.Environment (getArgs) |
|
35 |
import System.Exit |
|
35 | 36 |
import System.IO |
36 | 37 |
import System.Posix.Process |
37 | 38 |
import System.Posix.Signals |
38 |
import qualified System |
|
39 | 39 |
|
40 | 40 |
import Text.Printf (printf, hPrintf) |
41 | 41 |
|
... | ... | |
340 | 340 |
-- | Main function. |
341 | 341 |
main :: IO () |
342 | 342 |
main = do |
343 |
cmd_args <- System.getArgs
|
|
343 |
cmd_args <- getArgs |
|
344 | 344 |
(opts, args) <- parseOpts cmd_args "hbal" options |
345 | 345 |
|
346 | 346 |
unless (null args) $ do |
b/htools/Ganeti/HTools/Program/Hscan.hs | ||
---|---|---|
27 | 27 |
|
28 | 28 |
import Control.Monad |
29 | 29 |
import Data.Maybe (isJust, fromJust, fromMaybe) |
30 |
import System (exitWith, ExitCode(..)) |
|
30 |
import System.Environment (getArgs) |
|
31 |
import System.Exit |
|
31 | 32 |
import System.IO |
32 | 33 |
import System.FilePath |
33 |
import qualified System |
|
34 | 34 |
|
35 | 35 |
import Text.Printf (printf) |
36 | 36 |
|
... | ... | |
127 | 127 |
-- | Main function. |
128 | 128 |
main :: IO () |
129 | 129 |
main = do |
130 |
cmd_args <- System.getArgs
|
|
130 |
cmd_args <- getArgs |
|
131 | 131 |
(opts, clusters) <- parseOpts cmd_args "hscan" options |
132 | 132 |
let local = "LOCAL" |
133 | 133 |
|
b/htools/Ganeti/HTools/Program/Hspace.hs | ||
---|---|---|
30 | 30 |
import Data.Function (on) |
31 | 31 |
import Data.List |
32 | 32 |
import Data.Ord (comparing) |
33 |
import System (exitWith, ExitCode(..))
|
|
33 |
import System.Exit
|
|
34 | 34 |
import System.IO |
35 |
import qualified System
|
|
35 |
import System.Environment (getArgs)
|
|
36 | 36 |
|
37 | 37 |
import Text.Printf (printf, hPrintf) |
38 | 38 |
|
... | ... | |
383 | 383 |
-- | Main function. |
384 | 384 |
main :: IO () |
385 | 385 |
main = do |
386 |
cmd_args <- System.getArgs
|
|
386 |
cmd_args <- getArgs |
|
387 | 387 |
(opts, args) <- parseOpts cmd_args "hspace" options |
388 | 388 |
|
389 | 389 |
unless (null args) $ do |
b/htools/htools.hs | ||
---|---|---|
26 | 26 |
module Main (main) where |
27 | 27 |
|
28 | 28 |
import Data.Char (toLower) |
29 |
import System |
|
29 |
import System.Environment |
|
30 |
import System.Exit |
|
30 | 31 |
import System.IO |
31 | 32 |
|
32 | 33 |
import Ganeti.HTools.Utils |
b/htools/test.hs | ||
---|---|---|
28 | 28 |
import Data.Char |
29 | 29 |
import Data.IORef |
30 | 30 |
import Data.List |
31 |
import Test.QuickCheck |
|
32 | 31 |
import System.Console.GetOpt () |
33 |
import System.IO
|
|
32 |
import System.Environment (getArgs)
|
|
34 | 33 |
import System.Exit |
35 |
import System (getArgs) |
|
34 |
import System.IO |
|
35 |
import Test.QuickCheck |
|
36 | 36 |
import Text.Printf |
37 | 37 |
|
38 | 38 |
import Ganeti.HTools.QC |
... | ... | |
147 | 147 |
main = do |
148 | 148 |
errs <- newIORef 0 |
149 | 149 |
let wrap = map (wrapTest errs) |
150 |
cmd_args <- System.getArgs
|
|
150 |
cmd_args <- getArgs |
|
151 | 151 |
(opts, args) <- parseOpts cmd_args "test" options |
152 | 152 |
tests <- (if null args |
153 | 153 |
then return allTests |
Also available in: Unified diff