Revision 88b58ed6 src/Ganeti/Utils.hs
| b/src/Ganeti/Utils.hs | ||
|---|---|---|
| 59 | 59 |
, recombineEithers |
| 60 | 60 |
, resolveAddr |
| 61 | 61 |
, setOwnerAndGroupFromNames |
| 62 |
, formatOrdinal |
|
| 62 | 63 |
) where |
| 63 | 64 |
|
| 64 | 65 |
import Data.Char (toUpper, isAlphaNum, isDigit, isSpace) |
| ... | ... | |
| 473 | 474 |
let uid = fst ents M.! daemon |
| 474 | 475 |
let gid = snd ents M.! dGroup |
| 475 | 476 |
setOwnerAndGroup filename uid gid |
| 477 |
|
|
| 478 |
-- | Formats an integral number, appending a suffix. |
|
| 479 |
formatOrdinal :: (Integral a, Show a) => a -> String |
|
| 480 |
formatOrdinal num |
|
| 481 |
| num > 10 && num < 20 = suffix "th" |
|
| 482 |
| tens == 1 = suffix "st" |
|
| 483 |
| tens == 2 = suffix "nd" |
|
| 484 |
| tens == 3 = suffix "rd" |
|
| 485 |
| otherwise = suffix "th" |
|
| 486 |
where tens = num `mod` 10 |
|
| 487 |
suffix s = show num ++ s |
|
Also available in: Unified diff