summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton2018-11-09 17:40:02 -0700
committerSean Whitton2018-11-10 15:40:42 -0700
commit7ea7e745e5b7c0f2965b6311e2f20874f58fffc1 (patch)
tree90dedbf37b74db5e682b67a049407805f5e17015
parent8c1c71674f525f5614ade5095ce529eb0058ea0e (diff)
refactor to reduce parentheses
Suggested-by: Joey Hess <id@joeyh.name>
-rw-r--r--src/Propellor/Property/Libvirt.hs18
1 files 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