summaryrefslogtreecommitdiff
path: root/Property/Docker.hs
blob: 9d01d0b30e385491e66e068c4fdf120e4bb0e611 (plain)
1
2
3
4
5
6
7
8
9
10
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)