summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton2018-11-05 19:52:53 -0700
committerSean Whitton2018-11-05 19:52:56 -0700
commit1086f6aa3989fc6989eefa063f6fa884e16afa85 (patch)
tree2847ba581d69937c30a8ca3f9e4cee5ad7ff8972
parent0ac69c084da0192559ffc063b77b4616010516f8 (diff)
fix inverted logic
-rw-r--r--src/Propellor/Property/Libvirt.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/Libvirt.hs b/src/Propellor/Property/Libvirt.hs
index eb586df6..85abe4e3 100644
--- a/src/Propellor/Property/Libvirt.hs
+++ b/src/Propellor/Property/Libvirt.hs
@@ -94,7 +94,7 @@ kvmDefined imageType mem cpus auto h =
(setupRevertableProperty $ imageBuiltFor h
(image) (Debootstrapped mempty))
nuked :: Property UnixLike
- nuked = check (not <$> doesDirectoryExist (imageLoc <.> "chroot"))
+ nuked = check (doesDirectoryExist (imageLoc <.> "chroot"))
(property "destroy the chroot used to build the image" $ do
liftIO $ removeChroot (imageLoc <.> "chroot")
liftIO $ nukeFile (imageLoc <.> "parttable")