Revision 01f6a5d2 src/Node.hs
| b/src/Node.hs | ||
|---|---|---|
| 17 | 17 |
, removeSec |
| 18 | 18 |
, addPri |
| 19 | 19 |
, addSec |
| 20 |
, setPri |
|
| 21 |
, setSec |
|
| 20 | 22 |
-- * Statistics |
| 21 | 23 |
, normUsed |
| 22 | 24 |
-- * Formatting |
| ... | ... | |
| 52 | 54 |
later via the 'setIdx' and 'buildPeers' functions. |
| 53 | 55 |
|
| 54 | 56 |
-} |
| 55 |
create :: String -> String -> String -> String -> [Int] -> [Int] -> Node
|
|
| 57 |
create :: String -> String -> String -> String -> Node |
|
| 56 | 58 |
create mem_t_init mem_f_init disk_t_init disk_f_init |
| 57 |
plist_init slist_init = Node
|
|
| 59 |
= Node |
|
| 58 | 60 |
{
|
| 59 | 61 |
t_mem = read mem_t_init, |
| 60 | 62 |
f_mem = read mem_f_init, |
| 61 | 63 |
t_disk = read disk_t_init, |
| 62 | 64 |
f_disk = read disk_f_init, |
| 63 |
plist = plist_init,
|
|
| 64 |
slist = slist_init,
|
|
| 65 |
plist = [],
|
|
| 66 |
slist = [],
|
|
| 65 | 67 |
failN1 = True, |
| 66 | 68 |
idx = -1, |
| 67 | 69 |
peers = PeerMap.empty, |
| ... | ... | |
| 158 | 160 |
peers = new_peers, failN1 = new_failn1, |
| 159 | 161 |
maxRes = new_rmem} |
| 160 | 162 |
|
| 163 |
-- | Add a primary instance to a node without other updates |
|
| 164 |
setPri :: Node -> Int -> Node |
|
| 165 |
setPri t idx = t { plist = idx:(plist t) }
|
|
| 166 |
|
|
| 167 |
-- | Add a secondary instance to a node without other updates |
|
| 168 |
setSec :: Node -> Int -> Node |
|
| 169 |
setSec t idx = t { slist = idx:(slist t) }
|
|
| 170 |
|
|
| 161 | 171 |
-- | Simple converter to string. |
| 162 | 172 |
str :: Node -> String |
| 163 | 173 |
str t = |
Also available in: Unified diff