From 54575585fd0afd895ac522bd24926087313332db Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 10 Nov 2018 17:05:03 -0700 Subject: fix generated virt-install(1) call when NoAutoStart --- src/Propellor/Property/Libvirt.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/Propellor/Property/Libvirt.hs b/src/Propellor/Property/Libvirt.hs index 8c6252f1..eae63f18 100644 --- a/src/Propellor/Property/Libvirt.hs +++ b/src/Propellor/Property/Libvirt.hs @@ -127,9 +127,8 @@ defined imageType (MiBMemory mem) (NumVCPUs cpus) auto h = , "--disk" , "path=" ++ imageLoc ++ ",device=disk,bus=virtio" - , autoStartArg , "--print-xml" - ] + ] ++ autoStartArg liftIO $ hPutStrLn fh xml liftIO $ hClose fh makeChange $ unlessM (defineIt t) $ @@ -161,8 +160,8 @@ defined imageType (MiBMemory mem) (NumVCPUs cpus) auto h = osVariantArg = maybe "" ("--os-variant=" ++) $ osVariant h autoStartArg = case auto of - AutoStart -> "--autostart" - NoAutoStart -> "" + AutoStart -> ["--autostart"] + NoAutoStart -> [] -- ==== utility functions ==== -- cgit v1.2.3