X-Git-Url: http://git.ganeti.org/?p=ganeti-github.git;a=blobdiff_plain;f=src%2FGaneti%2FWConfd%2FConfigModifications.hs;h=aead178f63cee9c30baff019b9bef3bafe968f92;hp=9e666097b69bf873ccd1b10e1274040bd250b3b1;hb=bcdd69234880400942d6b5062c5469f3ea3e4b8d;hpb=2de4691383a28cc976b6bfc4cc5312af34b66304

diff --git a/src/Ganeti/WConfd/ConfigModifications.hs b/src/Ganeti/WConfd/ConfigModifications.hs
index 9e66609..aead178 100644
--- a/src/Ganeti/WConfd/ConfigModifications.hs
+++ b/src/Ganeti/WConfd/ConfigModifications.hs
@@ -303,7 +303,7 @@ attachInstanceDiskChecks uuidInst uuidDisk idx' cs = do
   let insts = M.elems . fromContainer . configInstances . csConfigData $ cs
   forM_ insts (\inst' -> when (uuidDisk `elem` instDisks inst') . Bad
     . ReservationError $ printf "Disk %s already attached to instance %s"
-        uuidDisk (show $ instName inst))
+        uuidDisk (show . fromMaybe "" $ instName inst))
 
 -- * Pure config modifications functions