diff --git a/Propellor/Property/Docker.hs b/Propellor/Property/Docker.hs index b75b2bf..d2555ea 100644 --- a/Propellor/Property/Docker.hs +++ b/Propellor/Property/Docker.hs @@ -219,7 +219,7 @@ fromContainerId :: ContainerId -> String fromContainerId (ContainerId hn cn) = cn++"."++hn++myContainerSuffix containerHostName :: ContainerId -> HostName -containerHostName (ContainerId _ cn) = cn +containerHostName (ContainerId _ cn) = cn2hn cn myContainerSuffix :: String myContainerSuffix = ".propellor"