Revision 8f48f67d htools/hspace.hs
| b/htools/hspace.hs | ||
|---|---|---|
| 302 | 302 |
(_, trl_nl, trl_il, trl_ixes, _) <- |
| 303 | 303 |
if stop_allocation |
| 304 | 304 |
then return result_noalloc |
| 305 |
else exitifbad (Cluster.tieredAlloc nl il (iofspec tspec) |
|
| 305 |
else exitifbad (Cluster.tieredAlloc nl il Nothing (iofspec tspec)
|
|
| 306 | 306 |
allocnodes [] []) |
| 307 | 307 |
let spec_map' = Cluster.tieredSpecMap trl_ixes |
| 308 | 308 |
|
| ... | ... | |
| 324 | 324 |
(ereason, fin_nl, fin_il, ixes, _) <- |
| 325 | 325 |
if stop_allocation |
| 326 | 326 |
then return result_noalloc |
| 327 |
else exitifbad (Cluster.iterateAlloc nl il reqinst allocnodes [] []) |
|
| 327 |
else exitifbad (Cluster.iterateAlloc nl il Nothing |
|
| 328 |
reqinst allocnodes [] []) |
|
| 328 | 329 |
|
| 329 | 330 |
let allocs = length ixes |
| 330 | 331 |
sreason = reverse $ sortBy (comparing snd) ereason |
Also available in: Unified diff