From e02f802ac848fe9395d9a7019b4041eca814b0c9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 1 Apr 2014 11:59:48 -0400 Subject: add PROPELLOR_DEBUG --- Propellor/Property/Docker.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Propellor/Property') diff --git a/Propellor/Property/Docker.hs b/Propellor/Property/Docker.hs index 450f397b..cacff5ce 100644 --- a/Propellor/Property/Docker.hs +++ b/Propellor/Property/Docker.hs @@ -211,8 +211,11 @@ runProp field val = Containerized [param] (Property param (return NoChange)) param = field++"="++val -- | Lift a Property to run inside the container. -inside :: Property -> Containerized Property -inside p = Containerized [] p +inside1 :: Property -> Containerized Property +inside1 = Containerized [] + +inside :: [Property] -> Containerized Property +inside = Containerized [] . combineProperties -- | Set custom dns server for container. dns :: String -> Containerized Property -- cgit v1.2.3