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