Revision 7847a037
| b/Ganeti/HTools/Cluster.hs | ||
|---|---|---|
| 754 | 754 |
(ktn, nl) = loadTabular ndata |
| 755 | 755 |
(\ (i:jt:jf:kt:kf:[]) -> (i, Node.create jt jf kt kf)) |
| 756 | 756 |
Node.setIdx |
| 757 |
{- instance file: name mem disk -}
|
|
| 757 |
{- instance file: name mem disk pnode snode -}
|
|
| 758 | 758 |
(kti, il) = loadTabular idata |
| 759 | 759 |
(\ (i:j:k:l:m:[]) -> (i, |
| 760 | 760 |
Instance.create j k |
| b/Ganeti/HTools/Node.hs | ||
|---|---|---|
| 6 | 6 |
|
| 7 | 7 |
module Ganeti.HTools.Node |
| 8 | 8 |
( |
| 9 |
Node(failN1, idx, f_mem, f_dsk, p_mem, p_dsk, slist, plist,
|
|
| 10 |
p_rem, offline)
|
|
| 9 |
Node(failN1, idx, t_mem, f_mem, t_dsk, f_dsk, p_mem, p_dsk, p_rem,
|
|
| 10 |
plist, slist, offline)
|
|
| 11 | 11 |
-- * Constructor |
| 12 | 12 |
, create |
| 13 | 13 |
-- ** Finalization after data loading |
| b/Makefile | ||
|---|---|---|
| 8 | 8 |
|
| 9 | 9 |
all: $(HPROGS) |
| 10 | 10 |
|
| 11 |
hn1 hbal: % : %.hs Ganeti/HTools/Version.hs $(HSRCS) Makefile
|
|
| 11 |
$(HPROGS): %: %.hs Ganeti/HTools/Version.hs $(HSRCS) Makefile
|
|
| 12 | 12 |
ghc --make -O2 -W $@ |
| 13 | 13 |
|
| 14 | 14 |
$(DOCS) : %.html : % |
Also available in: Unified diff