summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Docker.hs
diff options
context:
space:
mode:
authorAntoine Eiche2015-05-11 12:56:01 +0200
committerJoey Hess2015-05-12 11:03:13 -0400
commit3790a65dd5e1558ffe5a89577788f68288570d3a (patch)
treef5c44f35d5a175beaab26a0d99b2b0f66fc98d85 /src/Propellor/Property/Docker.hs
parent4b5b9f253f4f84cdf3e1dd571e7c40ec05750720 (diff)
add Docker.Container field labels containerImage and containerHost
Diffstat (limited to 'src/Propellor/Property/Docker.hs')
-rw-r--r--src/Propellor/Property/Docker.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Propellor/Property/Docker.hs b/src/Propellor/Property/Docker.hs
index 6ca5005c..d04ed4bf 100644
--- a/src/Propellor/Property/Docker.hs
+++ b/src/Propellor/Property/Docker.hs
@@ -16,7 +16,7 @@ module Propellor.Property.Docker (
tweaked,
Image,
ContainerName,
- Container,
+ Container(..),
-- * Container configuration
dns,
hostname,
@@ -76,7 +76,10 @@ configured = prop `requires` installed
type ContainerName = String
-- | A docker container.
-data Container = Container Image Host
+data Container = Container
+ { containerImage :: Image
+ , containerHost :: Host
+ }
instance PropAccum Container where
(Container i h) & p = Container i (h & p)