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 18f587d..f7a435a 100644 (file)
--- a/htools/Ganeti/HTools/Luxi.hs
+++ b/htools/Ganeti/HTools/Luxi.hs
@@ -33,13 +33,13 @@ import Text.JSON.Types
 import qualified Text.JSON
 
 import qualified Ganeti.Luxi as L
-import qualified Ganeti.Qlang as Qlang
+import qualified Ganeti.Query.Language as Qlang
 import Ganeti.HTools.Loader
 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)]