diff --git a/Propellor/Property/Docker.hs b/Propellor/Property/Docker.hs index 3e19db4..dd4f192 100644 --- a/Propellor/Property/Docker.hs +++ b/Propellor/Property/Docker.hs @@ -61,8 +61,8 @@ fromContainerId (ContainerId hn cn) = cn++"@"++hn data Container = Container Image [Containerized Property] -containerFromImage :: Image -> [Containerized Property] -> Container -containerFromImage = Container +containerFrom :: Image -> [Containerized Property] -> Container +containerFrom = Container containerProperties :: (HostName -> ContainerName -> Maybe (Container)) diff --git a/config.hs b/config.hs index dbbf89e..8c7422b 100644 --- a/config.hs +++ b/config.hs @@ -54,7 +54,7 @@ host _ = Nothing -- | This is where Docker containers are set up. A container -- can vary by hostname where it's used, or be the same everywhere. container :: HostName -> Docker.ContainerName -> Maybe (Docker.Container) -container _ "webserver" = Just $ Docker.containerFromImage "debian" +container _ "webserver" = Just $ Docker.containerFrom "joeyh/debian-unstable" [ Docker.publish "80:80" , Docker.volume "/var/www:/var/www" , Docker.inside