Revision 7345b69b htools/Ganeti/HTools/Program/Hspace.hs
| 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 |
Also available in: Unified diff