blob: ebb3d3a43b15474468fd0b59c52d6010a16d1db6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module Property.Docker where
import Common
import qualified Property.File as File
import qualified Property.Apt as Apt
{- Configures docker with an authentication file, so that images can be
- pushed to index.docker.io. -}
configured :: Property
configured = Property "docker configured" go `requires` installed
where
go = withPrivData DockerAuthentication $ \cfg -> ensureProperty $
"/root/.dockercfg" `File.hasContent` (lines cfg)
installed :: Property
installed = Apt.installed ["docker.io"]
|
