git.iko.soy/docker-hs
on 4e85f3f help sign in
docker-hs/src/Docker/Types.hs
70 lines 2.2 kB history raw
1module Docker.Types where
3import Control.Monad.Except (ExceptT, runExceptT)
4import Control.Monad.Reader (ReaderT, runReaderT)
5import Data.Aeson (FromJSON, ToJSON, genericParseJSON,
6 genericToJSON, parseJSON, toJSON)
7import Data.Aeson.Types (defaultOptions, fieldLabelModifier)
8import qualified Data.ByteString.Lazy as BL
9import Data.Char (toUpper)
10import Data.Text (Text)
11import qualified Data.Text as T
12import GHC.Generics (Generic)
13import qualified Network.HTTP.Client as HTTP
15type Endpoint = Text
16type URL = Text
17type ApiVersion = Text
19type Request = HTTP.Request
20type Response = HTTP.Response BL.ByteString
22data DockerClientOpts m = DockerClientOpts {
23 http :: Request -> m Response
24 , apiVersion :: ApiVersion
25 , baseUrl :: URL
26 }
28type DockerT m a = ReaderT (DockerClientOpts m) (ExceptT String m) a
30runDockerT :: (Monad m) => DockerClientOpts m -> DockerT m a -> m (Either String a)
31runDockerT opts a = runExceptT $ runReaderT a opts
32-- runDockerT opts a = (runExceptT .) . flip runReaderT opts a
34data ListOpts = ListOpts
35 { all :: Bool
36 } deriving (Eq, Show, Generic)
38instance ToJSON ListOpts
39instance FromJSON ListOpts
41defaultClientOpts :: DockerClientOpts IO
42defaultClientOpts = DockerClientOpts
43 { http = undefined
44 , apiVersion = "v1.22"
45 , baseUrl = "http://127.0.0.1:2375/"
46 }
48data DockerVersion = DockerVersion
49 { version :: Text
50 , gitCommit :: Text
51 , goVersion :: Text
52 , arch :: Text
53 , kernelVersion :: Text
54 } deriving (Show, Eq, Generic)
57instance ToJSON DockerVersion where
58 toJSON = genericToJSON defaultOptions {
59 fieldLabelModifier = (\(x:xs) -> toUpper x : xs)}
61instance FromJSON DockerVersion where
62 parseJSON = genericParseJSON defaultOptions {
63 fieldLabelModifier = (\(x:xs) -> toUpper x : xs)}
66data Container = Container
68data Image = Image