summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/Dns.hs
diff options
context:
space:
mode:
authorFelix Gruber2015-10-18 17:11:50 +0200
committerJoey Hess2015-10-18 14:14:07 -0400
commit2ad09b34ecec5a643a4a08c88a0a1cc7703094e3 (patch)
tree621ece48e772504492237e1b902c18062790b94b /src/Propellor/Types/Dns.hs
parent57f4eca88a1c3762b452171ee0a9d1a4f1367402 (diff)
fix typo: propigate → propagate
Diffstat (limited to 'src/Propellor/Types/Dns.hs')
-rw-r--r--src/Propellor/Types/Dns.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Propellor/Types/Dns.hs b/src/Propellor/Types/Dns.hs
index 3497b3ed..d95f1a8b 100644
--- a/src/Propellor/Types/Dns.hs
+++ b/src/Propellor/Types/Dns.hs
@@ -26,7 +26,7 @@ newtype AliasesInfo = AliasesInfo (S.Set HostName)
deriving (Show, Eq, Ord, Monoid, Typeable)
instance IsInfo AliasesInfo where
- propigateInfo _ = False
+ propagateInfo _ = False
toAliasesInfo :: [HostName] -> AliasesInfo
toAliasesInfo l = AliasesInfo (S.fromList l)
@@ -40,10 +40,10 @@ newtype DnsInfo = DnsInfo { fromDnsInfo :: S.Set Record }
toDnsInfo :: S.Set Record -> DnsInfo
toDnsInfo = DnsInfo
--- | DNS Info is propigated, so that eg, aliases of a container
+-- | DNS Info is propagated, so that eg, aliases of a container
-- are reflected in the dns for the host where it runs.
instance IsInfo DnsInfo where
- propigateInfo _ = True
+ propagateInfo _ = True
-- | Represents a bind 9 named.conf file.
data NamedConf = NamedConf
@@ -155,7 +155,7 @@ newtype NamedConfMap = NamedConfMap (M.Map Domain NamedConf)
deriving (Eq, Ord, Show, Typeable)
instance IsInfo NamedConfMap where
- propigateInfo _ = False
+ propagateInfo _ = False
-- | Adding a Master NamedConf stanza for a particulr domain always
-- overrides an existing Secondary stanza for that domain, while a