Fix typo breaking LUXI backend

This really shows the need for actual dist-time full testing (not
unittests).

diff --git a/Ganeti/HTools/Luxi.hs b/Ganeti/HTools/Luxi.hs
index a547405..8fe728f 100644 (file)
--- 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