Revision 71375ef7 htools/Ganeti/HTools/Program/Hscan.hs
b/htools/Ganeti/HTools/Program/Hscan.hs | ||
---|---|---|
82 | 82 |
-- | Generates serialized data from loader input. |
83 | 83 |
processData :: ClusterData -> Result ClusterData |
84 | 84 |
processData input_data = do |
85 |
cdata@(ClusterData _ nl il _) <- mergeData [] [] [] [] input_data |
|
85 |
cdata@(ClusterData _ nl il _ _) <- mergeData [] [] [] [] input_data
|
|
86 | 86 |
let (_, fix_nl) = checkData nl il |
87 | 87 |
return cdata { cdNodes = fix_nl } |
88 | 88 |
|
... | ... | |
111 | 111 |
-> ClusterData |
112 | 112 |
-> IO Bool |
113 | 113 |
writeDataInner nlen name opts cdata fixdata = do |
114 |
let (ClusterData _ nl il _) = fixdata |
|
114 |
let (ClusterData _ nl il _ _) = fixdata
|
|
115 | 115 |
printf "%-*s " nlen name :: IO () |
116 | 116 |
hFlush stdout |
117 | 117 |
let shownodes = optShowNodes opts |
Also available in: Unified diff