From 3358fe355ac525d46588f21fc8360a4f78e636e2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 20 May 2016 23:29:20 -0400 Subject: remove commented out code --- src/Propellor/PropAccum.hs | 6 ------ 1 file changed, 6 deletions(-) (limited to 'src/Propellor/PropAccum.hs') diff --git a/src/Propellor/PropAccum.hs b/src/Propellor/PropAccum.hs index d9fa8ec7..fcac60bf 100644 --- a/src/Propellor/PropAccum.hs +++ b/src/Propellor/PropAccum.hs @@ -78,9 +78,3 @@ Props c &^ p = Props (toChildProperty p : c) -> RevertableProperty (MetaTypes y) (MetaTypes z) -> Props (MetaTypes (Combine x z)) Props c ! p = Props (c ++ [toChildProperty (revert p)]) - --- addPropsHost :: Host -> [Prop] -> Host --- addPropsHost (Host hn ps i) p = Host hn ps' i' --- where --- ps' = ps ++ [toChildProperty p] --- i' = i <> getInfoRecursive p -- cgit v1.2.3