From 3068fdbe78cb86a9272b1ce5200653f5331fb173 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 8 Apr 2014 01:21:23 -0400
Subject: [PATCH] support volumes-from

---
 Propellor/Property/Docker.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/Propellor/Property/Docker.hs b/Propellor/Property/Docker.hs
index 255b72a..573b4c6 100644
--- a/Propellor/Property/Docker.hs
+++ b/Propellor/Property/Docker.hs
@@ -157,10 +157,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"