DOH: Complete API bindings for DigitalOcean API V2

[ library, mit, network ] [ Propose Tags ]
Versions [RSS],,,,,
Dependencies aeson, aeson-casing, base (>=4.9 && <=5.0), bytestring, containers, filepath, http-client, http-client-tls, http-types, lens, mtl, network-uri, text, time, unordered-containers [details]
License MIT
Author Yiğit Özkavcı
Category Network
Source repo head: git clone
Uploaded by yigitozkavci at 2018-06-20T07:59:04Z
Reverse Dependencies 1 direct, 0 indirect [details]
Downloads 4214 total (25 in the last 30 days)
Rating 2.0 (votes: 1) [estimated by Bayesian average]
Your Rating
  • λ
  • λ
  • λ
Status Docs available [build log]
Last success reported on 2018-06-20 [all 1 reports]

Readme for DOH-

[back to package description]


Complete API bindings for DigitalOcean API V2

Getting Started

Here is an example usage of the API:

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Network.DigitalOcean
import Network.DigitalOcean.Types
import Network.DigitalOcean.Services
import Control.Monad.Except
import Control.Monad.Reader

client :: Client
client = Client "your api key"

main :: IO ()
main = do
  result <- runExceptT $ (runReaderT $ runDO createViaSshKeys) client
  case result of
    Left err -> print err
    Right _ -> return ()

createViaSshKeys :: DO ()
createViaSshKeys = do
  -- Read a public key from a key pair and create ssh keys on DigitalOcean with it
  pubKey <- liftIO $ readFile "/Users/yigitozkavci/.ssh/"
  sshKey <- createSSHKey (SSHKeyPayload "my api key" pubKey) 
  -- Create 2 droplets with our newly uploaded ssh keys
  let dropletPayload = IDropletPayload "nyc3" "512mb" Ubuntu1404x64 (Just [sshkeyFingerprint sshKey]) Nothing Nothing Nothing Nothing Nothing Nothing Nothing
  droplets <- map dropletId <$> createDroplets ["droplet-1", "droplet-2"] dropletPayload

  -- Take snapshot of our newly created droplets
  forM_ droplets $ \dropletId -> performDropletAction dropletId (TakeSnapshot (Just "bulk snapshot"))

For full documentation and reference, see:


What can you do?

  • You can open an issue for unexpected / needed behaviors
  • Better, you can send a Pull Request

Any kind of contributions are welcome, even if it's updating docs / improving commenting / improving tests.