From 3790a65dd5e1558ffe5a89577788f68288570d3a Mon Sep 17 00:00:00 2001 From: Antoine Eiche Date: Mon, 11 May 2015 12:56:01 +0200 Subject: add Docker.Container field labels containerImage and containerHost --- src/Propellor/Property/Docker.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/Propellor') 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) -- cgit v1.2.3