From cc16366ff2998866fa3b222114cb989985b48359 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 30 Mar 2014 21:01:18 -0400
Subject: propellor spin

---
 Property/Docker.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 Property/Docker.hs

(limited to 'Property')

diff --git a/Property/Docker.hs b/Property/Docker.hs
new file mode 100644
index 00000000..9d01d0b3
--- /dev/null
+++ b/Property/Docker.hs
@@ -0,0 +1,11 @@
+module Property.Docker where
+
+import Common
+import qualified Property.File as File
+
+{- Configures docker with an authentication file, so that images can be
+ - pushed to index.docker.io. -}
+configured :: Property
+configured = Property "docker configured" $ 
+	withPrivData DockerAuthentication $ \cfg ->
+		ensureProperty $ "/root/.dockercfg" `File.hasContent` (lines cfg)
-- 
cgit v1.3-2-g0d8e