cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add Docker.Container field labels containerImage and containerHost

This commit is contained in:
Antoine Eiche 2015-05-11 12:56:01 +02:00 committed by Joey Hess
parent 4b5b9f253f
commit 3790a65dd5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Propellor/Property/Docker.hs
View File

@ -16,7 +16,7 @@ module Propellor.Property.Docker (
tweaked, tweaked,
Image, Image,
ContainerName, ContainerName,
Container, Container(..),
-- * Container configuration -- * Container configuration
dns, dns,
hostname, hostname,
@ -76,7 +76,10 @@ configured = prop `requires` installed
type ContainerName = String type ContainerName = String
-- | A docker container. -- | A docker container.
data Container = Container Image Host data Container = Container
{ containerImage :: Image
, containerHost :: Host
}
instance PropAccum Container where instance PropAccum Container where
(Container i h) & p = Container i (h & p) (Container i h) & p = Container i (h & p)