summaryrefslogtreecommitdiff
path: root/src/Propellor/PropAccum.hs
diff options
context:
space:
mode:
authorJoey Hess2015-02-12 12:35:26 -0400
committerJoey Hess2015-02-12 12:35:26 -0400
commitcb67eb1d08ec4cae991c2933624f12fbb68a7b03 (patch)
treecb0dccfee84fa16ef2343487866d1ca08e146ec3 /src/Propellor/PropAccum.hs
parent9a26a49f510f6880d1e19ad6e4393e8d54395240 (diff)
parentda77276378ecbed7d6434145793bfb209c731b76 (diff)
Merge branch 'joeyconfig'
Conflicts: privdata.joey/privdata.gpg
Diffstat (limited to 'src/Propellor/PropAccum.hs')
-rw-r--r--src/Propellor/PropAccum.hs15
1 files changed, 11 insertions, 4 deletions
diff --git a/src/Propellor/PropAccum.hs b/src/Propellor/PropAccum.hs
index 139f1471..20d083cb 100644
--- a/src/Propellor/PropAccum.hs
+++ b/src/Propellor/PropAccum.hs
@@ -1,6 +1,13 @@
{-# LANGUAGE PackageImports #-}
-module Propellor.PropAccum where
+module Propellor.PropAccum
+ ( host
+ , props
+ , PropAccum(..)
+ , (!)
+ , PropList
+ , propigateContainer
+ ) where
import Data.Monoid
@@ -47,9 +54,9 @@ instance PropAccum Host where
data PropList = PropList [Property HasInfo]
instance PropAccum PropList where
- PropList l & p = PropList (l ++ [toProp p])
- PropList l &^ p = PropList ([toProp p] ++ l)
- getProperties (PropList l) = l
+ PropList l & p = PropList (toProp p : l)
+ PropList l &^ p = PropList (l ++ [toProp p])
+ getProperties (PropList l) = reverse l
-- | Adds a property in reverted form.
(!) :: PropAccum h => h -> RevertableProperty -> h