diff --git a/htools/Ganeti/Objects.hs b/htools/Ganeti/Objects.hs index 22aac937cce7b00c9a58b41b157377b175fb880c..7d13c4c1353680f067e735ecd46b7a8f79a2bedb 100644 --- a/htools/Ganeti/Objects.hs +++ b/htools/Ganeti/Objects.hs @@ -279,7 +279,8 @@ encodeDLId (LIDDrbd8 nodeA nodeB port minorA minorB key) = encodeDLId (LIDRados pool name) = JSArray [showJSON pool, showJSON name] encodeDLId (LIDFile driver name) = JSArray [showJSON driver, showJSON name] encodeDLId (LIDBlockDev driver name) = JSArray [showJSON driver, showJSON name] -encodeDLId (LIDExt extprovider name) = JSArray [showJSON extprovider, showJSON name] +encodeDLId (LIDExt extprovider name) = + JSArray [showJSON extprovider, showJSON name] -- | Custom encoder for DiskLogicalId, composing both the logical id -- and the extra disk_type field.