From 34c7a1406018ce1566a09f8823a2aeee16f1505a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 23 Apr 2014 15:04:35 -0400 Subject: propellor spin --- Propellor/Attr.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Propellor/Attr.hs') diff --git a/Propellor/Attr.hs b/Propellor/Attr.hs index acaf28db..98cfc64d 100644 --- a/Propellor/Attr.hs +++ b/Propellor/Attr.hs @@ -59,7 +59,7 @@ addNamedConf conf d = d { _namedconf = new } where m = _namedconf d domain = confDomain conf - new = case (confType conf, confType <$> M.lookup domain m) of + new = case (confDnsServerType conf, confDnsServerType <$> M.lookup domain m) of (Secondary, Just Master) -> m _ -> M.insert domain conf m -- cgit v1.3-2-g0d8e