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

shorter

This commit is contained in:
Joey Hess 2014-04-01 17:14:56 -04:00
parent ec61b8f5d6
commit defb0bd037
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Propellor/Property/Docker.hs
View File

@ -94,7 +94,7 @@ containerProperties findcontainer = \h -> case toContainerId h of
containerDesc :: ContainerId -> Property -> Property containerDesc :: ContainerId -> Property -> Property
containerDesc cid p = p `describe` desc containerDesc cid p = p `describe` desc
where where
desc = "docker container " ++ fromContainerId cid ++ " " ++ propertyDesc p desc = "[" ++ fromContainerId cid ++ "] " ++ propertyDesc p
-- | Ensures that a docker container is set up and running. The container -- | Ensures that a docker container is set up and running. The container
-- has its own Properties which are handled by running propellor -- has its own Properties which are handled by running propellor