From ae380f085bc867f7405ef0a16c849864c6552e47 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 10 Oct 2015 14:56:22 -0400 Subject: tighten focus of Propellor module, adding Propellor.Base for all the exports --- src/Propellor/PropAccum.hs | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'src/Propellor/PropAccum.hs') diff --git a/src/Propellor/PropAccum.hs b/src/Propellor/PropAccum.hs index 350f4ab4..61cf3dc8 100644 --- a/src/Propellor/PropAccum.hs +++ b/src/Propellor/PropAccum.hs @@ -2,12 +2,10 @@ module Propellor.PropAccum ( host - , props , PropAccum(..) , (&) , (&^) , (!) - , PropList , propigateContainer ) where @@ -27,15 +25,6 @@ import Propellor.PrivData host :: HostName -> Host host hn = Host hn [] mempty --- | Starts accumulating a list of properties. --- --- > propertyList "foo" $ props --- > & someproperty --- > ! oldproperty --- > & otherproperty -props :: PropList -props = PropList [] - -- | Something that can accumulate properties. class PropAccum h where -- | Adds a property. @@ -71,13 +60,6 @@ instance PropAccum Host where (getInfoRecursive p <> is) getProperties = hostProperties -data PropList = PropList [Property HasInfo] - -instance PropAccum PropList where - PropList l `addProp` p = PropList (toProp p : l) - PropList l `addPropFront` p = PropList (l ++ [toProp p]) - getProperties (PropList l) = reverse l - -- | Adjust the provided Property, adding to its -- propertyChidren the properties of the provided container. -- -- cgit v1.2.3