support volumes-from

This commit is contained in:
Joey Hess 2014-04-08 01:21:23 -04:00
parent bd5c0c1f52
commit 3068fdbe78
1 changed files with 9 additions and 1 deletions

View File

@ -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"