diff options
| author | Antoine Eiche <antoineeiche@gmail.com> | 2015-05-11 12:56:01 +0200 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-05-12 11:03:13 -0400 |
| commit | 3790a65dd5e1558ffe5a89577788f68288570d3a (patch) | |
| tree | f5c44f35d5a175beaab26a0d99b2b0f66fc98d85 | |
| parent | 4b5b9f253f4f84cdf3e1dd571e7c40ec05750720 (diff) | |
add Docker.Container field labels containerImage and containerHost
| -rw-r--r-- | src/Propellor/Property/Docker.hs | 7 |
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) |