From 1cea2e1e2dce639ef8b2ffb45a8fbd503854e26a Mon Sep 17 00:00:00 2001 From: Iustin Pop 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 a547405..8fe728f 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 -- 1.7.10.4