From 1cea2e1e2dce639ef8b2ffb45a8fbd503854e26a Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Wed, 2 Dec 2009 15:58:14 +0100
Subject: [PATCH] Fix typo breaking LUXI backend

This really shows the need for actual dist-time full testing (not
unittests).
---
 Ganeti/HTools/Luxi.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ganeti/HTools/Luxi.hs b/Ganeti/HTools/Luxi.hs
index a54740597..8fe728f0c 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
-- 
GitLab