Do not handle host queries special
authorKlaus Aehlig <aehlig@google.com>
Mon, 1 Jul 2013 14:49:07 +0000 (16:49 +0200)
committerKlaus Aehlig <aehlig@google.com>
Wed, 3 Jul 2013 07:16:10 +0000 (09:16 +0200)
As, since 91c1a265, the equality used for host names already
is based on matching, there is no need to use a special function
for this any more.

Signed-off-by: Klaus Aehlig <aehlig@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>

src/Ganeti/Query/Server.hs

index 21454fa..3c8d8a9 100644 (file)
@@ -53,8 +53,7 @@ import Ganeti.Luxi
 import Ganeti.OpCodes (TagObject(..))
 import qualified Ganeti.Query.Language as Qlang
 import Ganeti.Query.Query
-import Ganeti.Query.Filter (FilterConstructor, makeSimpleFilter
-                           , makeHostnameFilter)
+import Ganeti.Query.Filter (makeSimpleFilter)
 
 -- | A type for functions that can return the configuration when
 -- executed.
@@ -66,16 +65,12 @@ handleClassicQuery :: ConfigData      -- ^ Cluster config
                    -> [Either String Integer] -- ^ Requested names
                                               -- (empty means all)
                    -> [String]        -- ^ Requested fields
-                   -> Maybe FilterConstructor -- ^ the filter algorithm
-                                              -- to be used, defaults to
-                                              -- makeSimpleFilter
                    -> Bool            -- ^ Whether to do sync queries or not
                    -> IO (GenericResult GanetiException JSValue)
-handleClassicQuery _ _ _ _ _ True =
+handleClassicQuery _ _ _ _ True =
   return . Bad $ OpPrereqError "Sync queries are not allowed" ECodeInval
-handleClassicQuery cfg qkind names fields filterconstr _ = do
-  let fltcon = fromMaybe makeSimpleFilter filterconstr
-      flt = fltcon (nameField qkind) names
+handleClassicQuery cfg qkind names fields _ = do
+  let flt = makeSimpleFilter (nameField qkind) names
   qr <- query cfg True (Qlang.Query qkind fields flt)
   return $ showJSON <$> (qr >>= queryCompat)
 
@@ -168,15 +163,15 @@ handleCall _ (QueryFields qkind qfields) = do
 
 handleCall cfg (QueryNodes names fields lock) =
   handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRNode)
-    (map Left names) fields (Just makeHostnameFilter) lock
+    (map Left names) fields lock
 
 handleCall cfg (QueryGroups names fields lock) =
   handleClassicQuery cfg (Qlang.ItemTypeOpCode Qlang.QRGroup)
-    (map Left names) fields Nothing lock
+    (map Left names) fields lock
 
 handleCall cfg (QueryJobs names fields) =
   handleClassicQuery cfg (Qlang.ItemTypeLuxi Qlang.QRJob)
-    (map (Right . fromIntegral . fromJobId) names)  fields Nothing False
+    (map (Right . fromIntegral . fromJobId) names)  fields False
 
 handleCall _ op =
   return . Bad $