Use only string value in error message
[ganeti-github.git] / src / Ganeti / WConfd / ConfigModifications.hs
index 9e66609..aead178 100644 (file)
@@ -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