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