Revision 942403e6 hn1.hs
b/hn1.hs | ||
---|---|---|
148 | 148 |
case optMaster opts of |
149 | 149 |
"" -> (readFile nodef, |
150 | 150 |
readFile instf) |
151 |
host -> (readData getNodes host,
|
|
152 |
readData getInstances host)
|
|
151 |
host -> (getNodes host >>= readData,
|
|
152 |
getInstances host >>= readData)
|
|
153 | 153 |
|
154 | 154 |
(loaded_nl, il, csf, ktn, kti) <- liftM2 Cluster.loadData node_data inst_data |
155 | 155 |
|
Also available in: Unified diff