Revision 4cd79ca8 htools/Ganeti/HTools/Rapi.hs

b/htools/Ganeti/HTools/Rapi.hs
66 66

  
67 67
#else
68 68

  
69
-- | Connection timeout (when using non-file methods).
70
connTimeout :: Long
71
connTimeout = 15
72

  
73
-- | The default timeout for queries (when using non-file methods).
74
queryTimeout :: Long
75
queryTimeout = 60
76

  
69 77
-- | The curl options we use.
70 78
curlOpts :: [CurlOption]
71 79
curlOpts = [ CurlSSLVerifyPeer False
72 80
           , CurlSSLVerifyHost 0
73
           , CurlTimeout (fromIntegral queryTimeout)
74
           , CurlConnectTimeout (fromIntegral connTimeout)
81
           , CurlTimeout queryTimeout
82
           , CurlConnectTimeout connTimeout
75 83
           ]
76 84

  
77 85
getUrl url = do

Also available in: Unified diff