summaryrefslogtreecommitdiff
path: root/src/Propellor/PropAccum.hs
diff options
context:
space:
mode:
authorJoey Hess2016-03-25 16:20:32 -0400
committerJoey Hess2016-03-25 16:20:32 -0400
commitf01776d64b1b8fcf89903d0de1ffe27f10d620ee (patch)
treecb7ef68ab23aa43e8a7ed7b428ef57f0b356921f /src/Propellor/PropAccum.hs
parent6b9f3158df63e18b32b7175205ef686badc3bc1b (diff)
rename toProp to toChildProperties
and note that it's not meant to be used by regular users
Diffstat (limited to 'src/Propellor/PropAccum.hs')
-rw-r--r--src/Propellor/PropAccum.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Propellor/PropAccum.hs b/src/Propellor/PropAccum.hs
index 06b8ad3f..7547a81d 100644
--- a/src/Propellor/PropAccum.hs
+++ b/src/Propellor/PropAccum.hs
@@ -62,7 +62,7 @@ type instance GetMetaTypes (RevertableProperty (MetaTypes t) undo) = MetaTypes t
=> Props (MetaTypes x)
-> p
-> Props (MetaTypes (Combine x y))
-Props c & p = Props (c ++ [toProp p])
+Props c & p = Props (c ++ [toChildProperty p])
-- | Adds a property before any other properties.
(&^)
@@ -74,7 +74,7 @@ Props c & p = Props (c ++ [toProp p])
=> Props (MetaTypes x)
-> p
-> Props (MetaTypes (Combine x y))
-Props c &^ p = Props (toProp p : c)
+Props c &^ p = Props (toChildProperty p : c)
-- | Adds a property in reverted form.
(!)
@@ -82,7 +82,7 @@ Props c &^ p = Props (toProp p : c)
=> Props (MetaTypes x)
-> RevertableProperty (MetaTypes y) (MetaTypes z)
-> Props (MetaTypes (Combine x z))
-Props c ! p = Props (c ++ [toProp (revert p)])
+Props c ! p = Props (c ++ [toChildProperty (revert p)])
{-