Further hlint fixes

[ganeti-local] / htools / Ganeti / HTools / Luxi.hs

diff --git a/htools/Ganeti/HTools/Luxi.hs b/htools/Ganeti/HTools/Luxi.hs
index 73512d3..f7a435a 100644 (file)
--- a/htools/Ganeti/HTools/Luxi.hs
+++ b/htools/Ganeti/HTools/Luxi.hs
@@ -39,7 +39,7 @@ import Ganeti.HTools.Types
 import qualified Ganeti.HTools.Group as Group
 import qualified Ganeti.HTools.Node as Node
 import qualified Ganeti.HTools.Instance as Instance
-import Ganeti.HTools.JSON
+import Ganeti.JSON
 
 {-# ANN module "HLint: ignore Eta reduce" #-}
 
@@ -212,7 +212,7 @@ getClusterData (JSObject obj) = do
   cpol <- tryFromObj errmsg obj' "ipolicy"
   return (ctags, cpol)
 
-getClusterData _ = Bad $ "Cannot parse cluster info, not a JSON record"
+getClusterData _ = Bad "Cannot parse cluster info, not a JSON record"
 
 -- | Parses the cluster groups.
 getGroups :: JSValue -> Result [(String, Group.Group)]