Revision 942403e6 hscan.hs
b/hscan.hs | ||
---|---|---|
155 | 155 |
hFlush stdout |
156 | 156 |
node_data <- getNodes name |
157 | 157 |
inst_data <- getInstances name |
158 |
(if isLeft(node_data)
|
|
159 |
then putStrLn $ fromLeft node_data
|
|
160 |
else if isLeft(inst_data)
|
|
161 |
then putStrLn $ fromLeft inst_data
|
|
162 |
else do
|
|
163 |
let ndata = fromRight node_data
|
|
164 |
idata = fromRight inst_data
|
|
165 |
(nl, il, csf, ktn, kti) = |
|
166 |
Cluster.loadData ndata idata |
|
167 |
(_, fix_nl) = Cluster.checkData nl il ktn kti |
|
168 |
putStrLn $ printCluster fix_nl il ktn kti |
|
169 |
when (optShowNodes opts) $ do |
|
170 |
putStr $ Cluster.printNodes ktn fix_nl |
|
171 |
let ndata = serializeNodes nl csf ktn |
|
172 |
idata = serializeInstances il csf ktn kti |
|
173 |
oname = odir </> name |
|
174 |
writeFile (oname <.> "nodes") ndata |
|
175 |
writeFile (oname <.> "instances") idata) |
|
158 |
(case node_data of
|
|
159 |
Bad err -> putStrLn err
|
|
160 |
Ok ndata ->
|
|
161 |
case inst_data of
|
|
162 |
Bad err -> putStrLn err
|
|
163 |
Ok idata ->
|
|
164 |
do
|
|
165 |
let (nl, il, csf, ktn, kti) =
|
|
166 |
Cluster.loadData ndata idata
|
|
167 |
(_, fix_nl) = Cluster.checkData nl il ktn kti
|
|
168 |
putStrLn $ printCluster fix_nl il ktn kti
|
|
169 |
when (optShowNodes opts) $ do
|
|
170 |
putStr $ Cluster.printNodes ktn fix_nl
|
|
171 |
let ndata = serializeNodes nl csf ktn
|
|
172 |
idata = serializeInstances il csf ktn kti
|
|
173 |
oname = odir </> name
|
|
174 |
writeFile (oname <.> "nodes") ndata
|
|
175 |
writeFile (oname <.> "instances") idata)
|
|
176 | 176 |
) clusters |
177 | 177 |
exitWith ExitSuccess |
Also available in: Unified diff