Synnefo » snf-ganeti » ganeti-local

import Control.Exception

import Data.List (isPrefixOf)

import Data.Maybe (fromMaybe)

import Network.Curl

import Network.Curl.Types ()

import Control.Monad

import Text.JSON (JSObject, fromJSObject, decodeStrict)

import Text.JSON.Types (JSValue(..))

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

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

-- | Connection timeout (when using non-file methods).

connTimeout :: Long

connTimeout = 15

            CurlOK -> return body

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

                 url (show code))

-- | Helper to convert I/O errors in 'Bad' values.

ioErrToResult :: IO a -> IO (Result a)