diff --git a/src/Propellor/Property/Docker.hs b/src/Propellor/Property/Docker.hs index 7b559a5..0fc7bee 100644 --- a/src/Propellor/Property/Docker.hs +++ b/src/Propellor/Property/Docker.hs @@ -462,9 +462,11 @@ provisionContainer cid = containerDesc cid $ property "provisioned" $ liftIO $ d chain :: String -> Host -> IO () chain s h = case toContainerId s of - Just cid -> onlyProcess (provisioningLock cid) $ do - r <- runPropellor h $ ensureProperties $ hostProperties h - putStrLn $ "\n" ++ show r + Just cid -> do + changeWorkingDirectory localdir + onlyProcess (provisioningLock cid) $ do + r <- runPropellor h $ ensureProperties $ hostProperties h + putStrLn $ "\n" ++ show r Nothing -> error "bad container id" stopContainer :: ContainerId -> IO Bool