Revision 11d09d75 src/Ganeti/Query/Filter.hs
| b/src/Ganeti/Query/Filter.hs | ||
|---|---|---|
| 220 | 220 |
|
| 221 | 221 |
-- | Runs a getter with potentially missing runtime context. |
| 222 | 222 |
tryGetter :: ConfigData -> Maybe b -> a -> FieldGetter a b -> Maybe ResultEntry |
| 223 |
tryGetter _ _ item (FieldSimple getter) = Just $ getter item |
|
| 224 |
tryGetter cfg _ item (FieldConfig getter) = Just $ getter cfg item |
|
| 225 |
tryGetter _ rt item (FieldRuntime getter) = |
|
| 223 |
tryGetter _ _ item (FieldSimple getter) = Just $ getter item
|
|
| 224 |
tryGetter cfg _ item (FieldConfig getter) = Just $ getter cfg item
|
|
| 225 |
tryGetter _ rt item (FieldRuntime getter) =
|
|
| 226 | 226 |
maybe Nothing (\rt' -> Just $ getter rt' item) rt |
| 227 |
tryGetter _ _ _ FieldUnknown = Just $ |
|
| 228 |
ResultEntry RSUnknown Nothing |
|
| 227 |
tryGetter cfg rt item (FieldConfigRuntime getter) = |
|
| 228 |
maybe Nothing (\rt' -> Just $ getter cfg rt' item) rt |
|
| 229 |
tryGetter _ _ _ FieldUnknown = Just $ ResultEntry RSUnknown Nothing |
|
| 229 | 230 |
|
| 230 | 231 |
-- | Computes the requested names, if only names were requested (and |
| 231 | 232 |
-- with equality). Otherwise returns 'Nothing'. |
Also available in: Unified diff