2014-03-31 01:01:18 +00:00
|
|
|
module Property.Docker where
|
|
|
|
|
|
|
|
|
|
import Common
|
|
|
|
|
import qualified Property.File as File
|
2014-03-31 01:03:42 +00:00
|
|
|
import qualified Property.Apt as Apt
|
2014-03-31 01:01:18 +00:00
|
|
|
|
|
|
|
|
{- Configures docker with an authentication file, so that images can be
|
|
|
|
|
- pushed to index.docker.io. -}
|
|
|
|
|
configured :: Property
|
2014-03-31 01:03:42 +00:00
|
|
|
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"]
|
