Revision 36162faf src/Ganeti/Query/Network.hs
| b/src/Ganeti/Query/Network.hs | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
{-
|
| 6 | 6 |
|
| 7 |
Copyright (C) 2012 Google Inc. |
|
| 7 |
Copyright (C) 2012, 2013 Google Inc.
|
|
| 8 | 8 |
|
| 9 | 9 |
This program is free software; you can redistribute it and/or modify |
| 10 | 10 |
it under the terms of the GNU General Public License as published by |
| ... | ... | |
| 27 | 27 |
( getGroupConnection |
| 28 | 28 |
, getNetworkUuid |
| 29 | 29 |
, instIsConnected |
| 30 |
, NetworkRuntime(..)
|
|
| 31 |
, networkFieldsMap
|
|
| 30 |
, Runtime(..) |
|
| 31 |
, fieldsMap
|
|
| 32 | 32 |
) where |
| 33 | 33 |
|
| 34 |
-- FIXME: everything except NetworkRuntime(..) and networkFieldsMap
|
|
| 34 |
-- FIXME: everything except Runtime(..) and fieldsMap
|
|
| 35 | 35 |
-- is only exported for testing. |
| 36 | 36 |
|
| 37 | 37 |
import qualified Data.Map as Map |
| ... | ... | |
| 46 | 46 |
import Ganeti.Query.Types |
| 47 | 47 |
import Ganeti.Types |
| 48 | 48 |
|
| 49 |
data NetworkRuntime = NetworkRuntime |
|
| 49 |
-- | There is no actual runtime. |
|
| 50 |
data Runtime = Runtime |
|
| 50 | 51 |
|
| 51 |
networkFields :: FieldList Network NetworkRuntime
|
|
| 52 |
networkFields :: FieldList Network Runtime |
|
| 52 | 53 |
networkFields = |
| 53 | 54 |
[ (FieldDefinition "name" "Name" QFTText "Network name", |
| 54 | 55 |
FieldSimple (rsNormal . networkName), QffNormal) |
| ... | ... | |
| 90 | 91 |
tagsFields |
| 91 | 92 |
|
| 92 | 93 |
-- | The group fields map. |
| 93 |
networkFieldsMap :: FieldMap Network NetworkRuntime
|
|
| 94 |
networkFieldsMap =
|
|
| 94 |
fieldsMap :: FieldMap Network Runtime
|
|
| 95 |
fieldsMap =
|
|
| 95 | 96 |
Map.fromList $ map (\v@(f, _, _) -> (fdefName f, v)) networkFields |
| 96 | 97 |
|
| 97 | 98 |
-- TODO: the following fields are not implemented yet: external_reservations |
Also available in: Unified diff