summaryrefslogtreecommitdiff
path: root/src/Propellor/Types.hs
diff options
context:
space:
mode:
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