Revision 01f6a5d2 src/Instance.hs
| b/src/Instance.hs | ||
|---|---|---|
| 13 | 13 |
, idx :: Int -- ^ internal index for book-keeping |
| 14 | 14 |
} deriving (Show) |
| 15 | 15 |
|
| 16 |
create :: String -> String -> Instance |
|
| 17 |
create mem_init disk_init = Instance {
|
|
| 16 |
create :: String -> String -> Int -> Int -> Instance
|
|
| 17 |
create mem_init disk_init pn sn = Instance {
|
|
| 18 | 18 |
mem = read mem_init, |
| 19 | 19 |
disk = read disk_init, |
| 20 |
pnode = -1,
|
|
| 21 |
snode = -1,
|
|
| 20 |
pnode = pn,
|
|
| 21 |
snode = sn,
|
|
| 22 | 22 |
idx = -1 |
| 23 | 23 |
} |
| 24 | 24 |
|
Also available in: Unified diff