Revision 37dfcacb htools/Ganeti/Utils.hs
| b/htools/Ganeti/Utils.hs | ||
|---|---|---|
| 285 | 285 |
newUUID :: IO String |
| 286 | 286 |
newUUID = do |
| 287 | 287 |
contents <- readFile C.randomUuidFile |
| 288 |
let stripNewlines = reverse . dropWhile (=='\n') . reverse |
|
| 289 |
return $! stripNewlines $ take 128 contents |
|
| 288 |
return $! rStripSpace $ take 128 contents |
|
Also available in: Unified diff