summaryrefslogtreecommitdiff
path: root/src/Propellor/Types.hs
diff options
context:
space:
mode:
authorJoey Hess2016-02-08 11:18:17 -0400
committerJoey Hess2016-02-08 11:18:17 -0400
commitb33807cec25f232d5bd43fea6e954d596acbad24 (patch)
treeab07223b2a7e2ffde115464ccbd73e904ddd5968 /src/Propellor/Types.hs
parentb493414d30c7aef37af904e55316436554fe54b2 (diff)
Allow using combineProperties and propertyList with lists of RevertableProperty.
Diffstat (limited to 'src/Propellor/Types.hs')
-rw-r--r--src/Propellor/Types.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Propellor/Types.hs b/src/Propellor/Types.hs
index 35e95df7..f224c8ba 100644
--- a/src/Propellor/Types.hs
+++ b/src/Propellor/Types.hs
@@ -182,7 +182,10 @@ propertyChildren (SProperty _ _ cs) = cs
-- | A property that can be reverted. The first Property is run
-- normally and the second is run when it's reverted.
-data RevertableProperty i = RevertableProperty (Property i) (Property i)
+data RevertableProperty i = RevertableProperty
+ { setupRevertableProperty :: Property i
+ , undoRevertableProperty :: Property i
+ }
instance Show (RevertableProperty i) where
show (RevertableProperty p _) = show p