Revision 1297ce13
b/Ganeti/HTools/Rapi.hs | ||
---|---|---|
39 | 39 |
getInstances master = do |
40 | 40 |
let url2 = printf "%s/2/instances?bulk=1" (formatHost master) |
41 | 41 |
body <- getUrl url2 |
42 |
return $ (body >>= \x -> do
|
|
43 |
arr <- loadJSArray x |
|
44 |
ilist <- mapM parseInstance arr |
|
45 |
return $ unlines ilist) |
|
42 |
return $ (do x <- body
|
|
43 |
arr <- loadJSArray x
|
|
44 |
ilist <- mapM parseInstance arr
|
|
45 |
return $ unlines ilist)
|
|
46 | 46 |
|
47 | 47 |
getNodes :: String -> IO (Result String) |
48 | 48 |
getNodes master = do |
49 | 49 |
let url2 = printf "%s/2/nodes?bulk=1" (formatHost master) |
50 | 50 |
body <- getUrl url2 |
51 |
return $ (body >>= \x -> do
|
|
52 |
arr <- loadJSArray x |
|
53 |
nlist <- mapM parseNode arr |
|
54 |
return $ unlines nlist) |
|
51 |
return $ (do x <- body
|
|
52 |
arr <- loadJSArray x
|
|
53 |
nlist <- mapM parseNode arr
|
|
54 |
return $ unlines nlist)
|
|
55 | 55 |
|
56 | 56 |
parseInstance :: JSObject JSValue -> Result String |
57 | 57 |
parseInstance a = |
Also available in: Unified diff