Revision a69ff623 htools/Ganeti/HTools/Rapi.hs

b/htools/Ganeti/HTools/Rapi.hs
47 47 
import qualified Ganeti.HTools.Group as Group
48 48 
import qualified Ganeti.HTools.Node as Node
49 49 
import qualified Ganeti.HTools.Instance as Instance
50 
import qualified Ganeti.Constants as C
50 51 

  		





  51
  52
  
    
-- | Read an URL via curl and return the body if successful.


  		





  52
  53
  
    
getUrl :: (Monad m) => String -> IO (m String)


  		





  ......




  76
  77
  
    
formatHost :: String -> String


  		





  77
  78
  
    
formatHost master =


  		





  78
  79
  
    
    if ':' `elem` master then  master


  		





  79
  
  
    
    else "https://" ++ master ++ ":5080"


  		





  
  80
  
    
    else "https://" ++ master ++ ":" ++ show C.defaultRapiPort


  		





  80
  81
  
    

  		





  81
  82
  
    
-- | Parse a instance list in JSON format.


  		





  82
  83
  
    
getInstances :: NameAssoc


  		












Also available in:
  Unified diff