From 7ea7e745e5b7c0f2965b6311e2f20874f58fffc1 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 9 Nov 2018 17:40:02 -0700 Subject: refactor to reduce parentheses Suggested-by: Joey Hess --- src/Propellor/Property/Libvirt.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/Propellor/Property/Libvirt.hs b/src/Propellor/Property/Libvirt.hs index 201d1185..9f3f96a4 100644 --- a/src/Propellor/Property/Libvirt.hs +++ b/src/Propellor/Property/Libvirt.hs @@ -94,18 +94,18 @@ defined imageType (MiBMemory mem) (NumVCPUs cpus) auto h = `requires` installed where built :: Property (HasInfo + DebianLike) - built = check (not <$> doesFileExist imageLoc) - (setupRevertableProperty $ imageBuiltFor h - (image) (Debootstrapped mempty)) + built = check (not <$> doesFileExist imageLoc) $ + setupRevertableProperty $ imageBuiltFor h + (image) (Debootstrapped mempty) nuked :: Property UnixLike - nuked = check (doesDirectoryExist (imageLoc <.> "chroot")) - (property "destroy the chroot used to build the image" $ do + nuked = check (doesDirectoryExist (imageLoc <.> "chroot")) $ + property "destroy the chroot used to build the image" $ do liftIO $ removeChroot (imageLoc <.> "chroot") liftIO $ nukeFile (imageLoc <.> "parttable") - return MadeChange) + return MadeChange xmlDefined :: Property UnixLike - xmlDefined = check (not <$> doesFileExist conf) - (scriptProperty + xmlDefined = check (not <$> doesFileExist conf) $ + scriptProperty [ "virt-install -n " ++ hostName h ++ osVariantArg ++ " --memory=" ++ show mem @@ -117,7 +117,7 @@ defined imageType (MiBMemory mem) (NumVCPUs cpus) auto h = ++ " >" ++ confTmp , "virsh define " ++ confTmp , "rm " ++ confTmp - ]) + ] started :: Property UnixLike started = case auto of AutoStart -> scriptProperty -- cgit v1.2.3