Revision 4bc33d60 hail.hs
| b/hail.hs | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
{-
|
| 6 | 6 |
|
| 7 |
Copyright (C) 2009, 2010 Google Inc. |
|
| 7 |
Copyright (C) 2009, 2010, 2011 Google Inc.
|
|
| 8 | 8 |
|
| 9 | 9 |
This program is free software; you can redistribute it and/or modify |
| 10 | 10 |
it under the terms of the GNU General Public License as published by |
| ... | ... | |
| 71 | 71 |
let Request rqtype (ClusterData gl nl il _) = request |
| 72 | 72 |
in case rqtype of |
| 73 | 73 |
Allocate xi reqn -> Cluster.tryMGAlloc gl nl il xi reqn |
| 74 |
Relocate idx reqn exnodes -> Cluster.tryReloc nl il idx reqn exnodes |
|
| 74 |
Relocate idx reqn exnodes -> Cluster.tryMGReloc gl nl il |
|
| 75 |
idx reqn exnodes |
|
| 75 | 76 |
Evacuate exnodes -> Cluster.tryEvac nl il exnodes |
| 76 | 77 |
|
| 77 | 78 |
-- | Reads the request from the data file(s) |
Also available in: Unified diff