From 182fa98253072781795ad4f589da4216748b1218 Mon Sep 17 00:00:00 2001 From: Antoine Eiche Date: Mon, 15 Jun 2015 11:53:27 +0200 Subject: Update Joey's config according to new Docker.Image definition --- config-joey.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'config-joey.hs') diff --git a/config-joey.hs b/config-joey.hs index f791ed38..93a44764 100644 --- a/config-joey.hs +++ b/config-joey.hs @@ -505,10 +505,10 @@ standardDockerContainer name suite arch = Docker.container name (dockerImage sys -- Docker images I prefer to use. dockerImage :: System -> Docker.Image -dockerImage (System (Debian Unstable) arch) = "joeyh/debian-unstable-" ++ arch -dockerImage (System (Debian Testing) arch) = "joeyh/debian-unstable-" ++ arch -dockerImage (System (Debian (Stable _)) arch) = "joeyh/debian-stable-" ++ arch -dockerImage _ = "debian-stable-official" -- does not currently exist! +dockerImage (System (Debian Unstable) arch) = Docker.Image ("joeyh/debian-unstable-" ++ arch) Nothing +dockerImage (System (Debian Testing) arch) = Docker.Image ("joeyh/debian-unstable-" ++ arch) Nothing +dockerImage (System (Debian (Stable _)) arch) = Docker.Image ("joeyh/debian-stable-" ++ arch) Nothing +dockerImage _ = Docker.Image "debian-stable-official" Nothing -- does not currently exist! myDnsSecondary :: Property HasInfo myDnsSecondary = propertyList "dns secondary for all my domains" $ props -- cgit v1.2.3