From c62c606c0e459fe19f258bcf5ba80958349f3e1e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 8 Apr 2014 01:21:23 -0400 Subject: support volumes-from --- Propellor/Property/Docker.hs | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'Propellor/Property') diff --git a/Propellor/Property/Docker.hs b/Propellor/Property/Docker.hs index cc6f83c4..2014e5bd 100644 --- a/Propellor/Property/Docker.hs +++ b/Propellor/Property/Docker.hs @@ -158,10 +158,18 @@ publish = runProp "publish" user :: String -> Containerized Property user = runProp "user" --- | Bind mount a volume +-- | Mount a volume +-- Create a bind mount with: [host-dir]:[container-dir]:[rw|ro] +-- With just a directory, creates a volume in the container. volume :: String -> Containerized Property volume = runProp "volume" +-- | Mount a volume from the specified container into the current +-- container. +volumes_from :: ContainerName -> Containerized Property +volumes_from cn = genProp "volumes-rom" $ \hn -> + fromContainerId (ContainerId hn cn) + -- | Work dir inside the container. workdir :: String -> Containerized Property workdir = runProp "workdir" -- cgit v1.2.3