Revision c9224fa4

b/Ganeti/HTools/Rapi.hs
23 23 

  		





  24
  24
  
    
-}


  		





  25
  25
  
    

  		





  
  26
  
    
{-# LANGUAGE BangPatterns #-}


  		





  
  27
  
    

  		





  26
  28
  
    
module Ganeti.HTools.Rapi


  		





  27
  29
  
    
    (


  		





  28
  30
  
    
      loadData


  		





  ......




  55
  57
  
    
-- | Read an URL via curl and return the body if successful.


  		





  56
  58
  
    
getUrl :: (Monad m) => String -> IO (m String)


  		





  57
  59
  
    
getUrl url = do


  		





  58
  
  
    
  (code, body) <- curlGetString url curlOpts


  		





  
  60
  
    
  (code, !body) <- curlGetString url curlOpts


  		





  59
  61
  
    
  return (case code of


  		





  60
  62
  
    
            CurlOK -> return body


  		





  61
  63
  
    
            _ -> fail $ printf "Curl error for '%s', error %s"


  		












Also available in:
  Unified diff