runAPI :: API a -> IO (Either String a)
runAPI api = do
    manager        <- newManager tlsManagerSettings
    (result, logs) <- api `useAPIWith` manager
    mapM_ putStrLn logs
    return result
runAPI :: API a -> IO (Either String a)
runAPI api = do
    manager        <- newManager tlsManagerSettings
    (result, logs) <- api `useAPIWith` manager
    mapM_ putStrLn logs
    return result
runAPI api = do
    manager        <- newManager tlsManagerSettings
    (result, logs) <- api `useAPIWith` manager
    mapM_ putStrLn logs
    return result