Revision 3ed46bb7
| b/Ganeti/HTools/Node.hs | ||
|---|---|---|
| 210 | 210 |
, pTags = Map.empty |
| 211 | 211 |
} |
| 212 | 212 |
|
| 213 |
-- | Conversion formula from mDsk/tDsk to loDsk |
|
| 213 |
-- | Conversion formula from mDsk\/tDsk to loDsk
|
|
| 214 | 214 |
mDskToloDsk :: Double -> Double -> Int |
| 215 | 215 |
mDskToloDsk mval tdsk = floor (mval * tdsk) |
| 216 | 216 |
|
| 217 |
-- | Conversion formula from mCpu/tCpu to hiCpu |
|
| 217 |
-- | Conversion formula from mCpu\/tCpu to hiCpu
|
|
| 218 | 218 |
mCpuTohiCpu :: Double -> Double -> Int |
| 219 | 219 |
mCpuTohiCpu mval tcpu = floor (mval * tcpu) |
| 220 | 220 |
|
| b/hspace.hs | ||
|---|---|---|
| 212 | 212 |
then '\'':v ++ "'" |
| 213 | 213 |
else v |
| 214 | 214 |
|
| 215 |
-- | Format a list of key/values as a shell fragment |
|
| 215 |
-- | Format a list of key\/values as a shell fragment
|
|
| 216 | 216 |
printKeys :: [(String, String)] -> IO () |
| 217 | 217 |
printKeys = mapM_ (\(k, v) -> |
| 218 | 218 |
printf "HTS_%s=%s\n" (map toUpper k) (ensureQuoted v)) |
Also available in: Unified diff