diff --git a/Ganeti/HTools/Luxi.hs b/Ganeti/HTools/Luxi.hs index a547405979ca411db4e93585de5f563e0cdfa0db..8fe728f0cae48396c68bd9ea1488de904182d215 100644 --- a/Ganeti/HTools/Luxi.hs +++ b/Ganeti/HTools/Luxi.hs @@ -151,7 +151,7 @@ getClusterTags :: JSValue -> Result [String] getClusterTags v = do let errmsg = "Parsing cluster info" obj <- annotateResult errmsg $ asJSObject v - tags <- tryFromObj errmsg (fromJSObject obj) "tag" + tags <- tryFromObj errmsg (fromJSObject obj) "tags" return tags -- * Main loader functionality