Revision c3024b7e htools/Ganeti/HTools/Utils.hs
b/htools/Ganeti/HTools/Utils.hs | ||
---|---|---|
33 | 33 |
, commaJoin |
34 | 34 |
, tryRead |
35 | 35 |
, formatTable |
36 |
, printTable |
|
36 | 37 |
, parseUnit |
37 | 38 |
, plural |
38 | 39 |
) where |
... | ... | |
156 | 157 |
) (zip3 vtrans numpos mlens) |
157 | 158 |
in transpose expnd |
158 | 159 |
|
160 |
-- | Constructs a printable table from given header and rows |
|
161 |
printTable :: String -> [String] -> [[String]] -> [Bool] -> String |
|
162 |
printTable lp header rows isnum = |
|
163 |
unlines . map ((++) lp) . map ((:) ' ' . unwords) $ |
|
164 |
formatTable (header:rows) isnum |
|
165 |
|
|
159 | 166 |
-- | Tries to extract number and scale from the given string. |
160 | 167 |
-- |
161 | 168 |
-- Input must be in the format NUMBER+ SPACE* [UNIT]. If no unit is |
Also available in: Unified diff