Revision d5072e4c htools/hbal.hs
| b/htools/hbal.hs | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
{-
|
| 6 | 6 |
|
| 7 |
Copyright (C) 2009, 2010 Google Inc. |
|
| 7 |
Copyright (C) 2009, 2010, 2011 Google Inc.
|
|
| 8 | 8 |
|
| 9 | 9 |
This program is free software; you can redistribute it and/or modify |
| 10 | 10 |
it under the terms of the GNU General Public License as published by |
| ... | ... | |
| 280 | 280 |
when (length ngroups > 1 && isNothing (optGroup opts)) $ do |
| 281 | 281 |
hPutStrLn stderr "Found multiple node groups:" |
| 282 | 282 |
mapM_ (hPutStrLn stderr . (" " ++) . Group.name .
|
| 283 |
(flip Container.find gl) . fst) ngroups
|
|
| 283 |
flip Container.find gl . fst) ngroups
|
|
| 284 | 284 |
hPutStrLn stderr "Aborting." |
| 285 | 285 |
exitWith $ ExitFailure 1 |
| 286 | 286 |
|
| ... | ... | |
| 307 | 307 |
Nothing -> do |
| 308 | 308 |
-- TODO: while this is unlikely to happen, log here the |
| 309 | 309 |
-- actual group data to help debugging |
| 310 |
hPutStrLn stderr $ "Internal failure, missing group idx"
|
|
| 310 |
hPutStrLn stderr "Internal failure, missing group idx" |
|
| 311 | 311 |
exitWith $ ExitFailure 1 |
| 312 | 312 |
Just cdata -> return (Group.name grp, cdata) |
| 313 | 313 |
|
| ... | ... | |
| 417 | 417 |
return False |
| 418 | 418 |
Just master -> runJobSet master fin_nl il cmd_jobs) |
| 419 | 419 |
else return True |
| 420 |
when (not eval) (exitWith (ExitFailure 1)) |
|
| 420 |
unless eval (exitWith (ExitFailure 1)) |
|
Also available in: Unified diff