Merge branch 'stable-2.12' into stable-2.13
[ganeti-github.git] / src / Ganeti / Config.hs
index 18e7366..0e1cfc2 100644 (file)
@@ -51,6 +51,7 @@ module Ganeti.Config
     , getNode
     , getInstance
     , getDisk
+    , getFilterRule
     , getGroup
     , getGroupNdParams
     , getGroupIpolicy
@@ -265,6 +266,12 @@ getDisk cfg name =
   let disks = fromContainer (configDisks cfg)
   in getItem "Disk" name disks
 
+-- | Looks up a filter by uuid.
+getFilterRule :: ConfigData -> String -> ErrorResult FilterRule
+getFilterRule cfg name =
+  let filters = fromContainer (configFilters cfg)
+  in getItem "Filter" name filters
+
 -- | Looks up a node group by name or uuid.
 getGroup :: ConfigData -> String -> ErrorResult NodeGroup
 getGroup cfg name =