From 1086f6aa3989fc6989eefa063f6fa884e16afa85 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 5 Nov 2018 19:52:53 -0700 Subject: fix inverted logic --- src/Propellor/Property/Libvirt.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Property') 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") -- cgit v1.2.3