summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/ResultCheck.hs
diff options
context:
space:
mode:
authorJoey Hess2016-03-25 15:28:31 -0400
committerJoey Hess2016-03-25 15:28:31 -0400
commit1edce2b72614e2e8eceefde97436db024799ff20 (patch)
treebee36dec11710fae9cb93fe6d6f7e32293f26e01 /src/Propellor/Types/ResultCheck.hs
parent9768434f5fa2f2ed0bbb0212763a76471186a3cd (diff)
ported Property.Apt
Diffstat (limited to 'src/Propellor/Types/ResultCheck.hs')
-rw-r--r--src/Propellor/Types/ResultCheck.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Propellor/Types/ResultCheck.hs b/src/Propellor/Types/ResultCheck.hs
index 4c6524ee..f03c174f 100644
--- a/src/Propellor/Types/ResultCheck.hs
+++ b/src/Propellor/Types/ResultCheck.hs
@@ -22,6 +22,9 @@ import Data.Monoid
-- and `FailedChange` is still an error.
data UncheckedProperty i = UncheckedProperty (Property i)
+instance TightenTargets UncheckedProperty where
+ tightenTargets (UncheckedProperty p) = UncheckedProperty (tightenTargets p)
+
-- | Use to indicate that a Property is unchecked.
unchecked :: Property i -> UncheckedProperty i
unchecked = UncheckedProperty