summaryrefslogtreecommitdiff
path: root/src/Propellor/Types
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
parent57f4eca88a1c3762b452171ee0a9d1a4f1367402 (diff)
fix typo: propigate → propagate
Diffstat (limited to 'src/Propellor/Types')
-rw-r--r--src/Propellor/Types/Chroot.hs2
-rw-r--r--src/Propellor/Types/Dns.hs8
-rw-r--r--src/Propellor/Types/Docker.hs2
-rw-r--r--src/Propellor/Types/Info.hs12
4 files changed, 12 insertions, 12 deletions
diff --git a/src/Propellor/Types/Chroot.hs b/src/Propellor/Types/Chroot.hs
index d92c7070..fc049603 100644
--- a/src/Propellor/Types/Chroot.hs
+++ b/src/Propellor/Types/Chroot.hs
@@ -16,7 +16,7 @@ data ChrootInfo = ChrootInfo
deriving (Show, Typeable)
instance IsInfo ChrootInfo where
- propigateInfo _ = False
+ propagateInfo _ = False
instance Monoid ChrootInfo where
mempty = ChrootInfo mempty mempty
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
diff --git a/src/Propellor/Types/Docker.hs b/src/Propellor/Types/Docker.hs
index a1ed4cd9..f3cc4a52 100644
--- a/src/Propellor/Types/Docker.hs
+++ b/src/Propellor/Types/Docker.hs
@@ -16,7 +16,7 @@ data DockerInfo = DockerInfo
deriving (Show, Typeable)
instance IsInfo DockerInfo where
- propigateInfo _ = False
+ propagateInfo _ = False
instance Monoid DockerInfo where
mempty = DockerInfo mempty mempty
diff --git a/src/Propellor/Types/Info.hs b/src/Propellor/Types/Info.hs
index 3330a033..e94c370e 100644
--- a/src/Propellor/Types/Info.hs
+++ b/src/Propellor/Types/Info.hs
@@ -29,13 +29,13 @@ instance Show Info where
-- as info, especially type aliases which coud easily lead to bugs.
-- We want a little bit of dynamic types here, but not too far..
class (Typeable v, Monoid v) => IsInfo v where
- -- | Should info of this type be propigated out of a
+ -- | Should info of this type be propagated out of a
-- container to its Host?
- propigateInfo :: v -> Bool
+ propagateInfo :: v -> Bool
-- | Any value in the `IsInfo` type class can be added to an Info.
addInfo :: IsInfo v => Info -> v -> Info
-addInfo (Info l) v = Info ((toDyn v, propigateInfo v):l)
+addInfo (Info l) v = Info ((toDyn v, propagateInfo v):l)
-- The list is reversed here because addInfo builds it up in reverse order.
getInfo :: IsInfo v => Info -> v
@@ -50,13 +50,13 @@ mapInfo f (Info l) = Info (map go l)
Nothing -> (i, p)
Just v -> (toDyn (f v), p)
--- | Filters out parts of the Info that should not propigate out of a
+-- | Filters out parts of the Info that should not propagate out of a
-- container.
propigatableInfo :: Info -> Info
propigatableInfo (Info l) = Info (filter snd l)
-- | Use this to put a value in Info that is not a monoid.
--- The last value set will be used. This info does not propigate
+-- The last value set will be used. This info does not propagate
-- out of a container.
data InfoVal v = NoInfoVal | InfoVal v
deriving (Typeable)
@@ -67,7 +67,7 @@ instance Monoid (InfoVal v) where
mappend v NoInfoVal = v
instance Typeable v => IsInfo (InfoVal v) where
- propigateInfo _ = False
+ propagateInfo _ = False
fromInfoVal :: InfoVal v -> Maybe v
fromInfoVal NoInfoVal = Nothing