Revision 262a08a2 Ganeti/HTools/Node.hs
b/Ganeti/HTools/Node.hs | ||
---|---|---|
5 | 5 |
-} |
6 | 6 |
|
7 | 7 |
module Ganeti.HTools.Node |
8 |
( |
|
9 |
Node(failN1, name, idx, t_mem, n_mem, f_mem, t_dsk, f_dsk, |
|
8 |
( Node(failN1, name, idx, t_mem, n_mem, f_mem, t_dsk, f_dsk, |
|
10 | 9 |
p_mem, p_dsk, p_rem, |
11 | 10 |
plist, slist, offline) |
11 |
, List |
|
12 | 12 |
-- * Constructor |
13 | 13 |
, create |
14 | 14 |
-- ** Finalization after data loading |
... | ... | |
39 | 39 |
import qualified Ganeti.HTools.Instance as Instance |
40 | 40 |
import qualified Ganeti.HTools.PeerMap as PeerMap |
41 | 41 |
|
42 |
import qualified Ganeti.HTools.Types as T |
|
43 |
|
|
42 | 44 |
data Node = Node { name :: String -- ^ the node name |
43 | 45 |
, t_mem :: Double -- ^ total memory (MiB) |
44 | 46 |
, n_mem :: Int -- ^ node memory (MiB) |
... | ... | |
61 | 63 |
-- score computations |
62 | 64 |
} deriving (Show) |
63 | 65 |
|
66 |
instance T.Element Node where |
|
67 |
nameOf = name |
|
68 |
idxOf = idx |
|
69 |
setName = setName |
|
70 |
setIdx = setIdx |
|
71 |
|
|
64 | 72 |
-- | A simple name for the int, node association list |
65 | 73 |
type AssocList = [(Int, Node)] |
66 | 74 |
|
75 |
-- | A simple name for a node map |
|
76 |
type List = Container.Container Node |
|
77 |
|
|
67 | 78 |
-- | Constant node index for a non-moveable instance |
68 | 79 |
noSecondary :: Int |
69 | 80 |
noSecondary = -1 |
Also available in: Unified diff