Revision cc532bdd htools/hbal.hs
| b/htools/hbal.hs | ||
|---|---|---|
| 27 | 27 |
|
| 28 | 28 |
import Control.Concurrent (threadDelay) |
| 29 | 29 |
import Control.Exception (bracket) |
| 30 |
import Control.Monad |
|
| 30 | 31 |
import Data.List |
| 31 | 32 |
import Data.Maybe (isJust, isNothing, fromJust) |
| 32 | 33 |
import Data.IORef |
| 33 |
import Monad |
|
| 34 | 34 |
import System (exitWith, ExitCode(..)) |
| 35 | 35 |
import System.IO |
| 36 | 36 |
import System.Posix.Process |
| ... | ... | |
| 366 | 366 |
(optEvacMode opts) |
| 367 | 367 |
let (Cluster.Table fin_nl fin_il fin_cv fin_plc) = fin_tbl |
| 368 | 368 |
ord_plc = reverse fin_plc |
| 369 |
sol_msg = if null fin_plc
|
|
| 370 |
then printf "No solution found\n"
|
|
| 371 |
else if verbose > 2
|
|
| 372 |
then printf "Final coefficients: overall %.8f, %s\n"
|
|
| 373 |
fin_cv (Cluster.printStats fin_nl)
|
|
| 374 |
else printf "Cluster score improved from %.8f to %.8f\n"
|
|
| 375 |
ini_cv fin_cv
|
|
| 376 |
::String
|
|
| 369 |
sol_msg = case () of
|
|
| 370 |
_ | null fin_plc -> printf "No solution found\n"
|
|
| 371 |
| verbose > 2 ->
|
|
| 372 |
printf "Final coefficients: overall %.8f, %s\n"
|
|
| 373 |
fin_cv (Cluster.printStats fin_nl) |
|
| 374 |
| otherwise ->
|
|
| 375 |
printf "Cluster score improved from %.8f to %.8f\n"
|
|
| 376 |
ini_cv fin_cv ::String
|
|
| 377 | 377 |
|
| 378 | 378 |
unless oneline $ putStr sol_msg |
| 379 | 379 |
|
Also available in: Unified diff