X-Git-Url: https://code.grnet.gr/git/ganeti-local/blobdiff_plain/017a0c3d6c9dbfe65c81612ccc388a40ed3e81fc..6d0bc5cadbfae324472cadc2348bd1b509a42809:/hail.hs?ds=inline

diff --git a/hail.hs b/hail.hs
index 78eb8e1..541e1a9 100644
--- a/hail.hs
+++ b/hail.hs
@@ -4,7 +4,7 @@
 
 {-
 
-Copyright (C) 2009, 2010 Google Inc.
+Copyright (C) 2009, 2010, 2011 Google Inc.
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -71,8 +71,9 @@ processRequest request =
   let Request rqtype (ClusterData gl nl il _) = request
   in case rqtype of
        Allocate xi reqn -> Cluster.tryMGAlloc gl nl il xi reqn
-       Relocate idx reqn exnodes -> Cluster.tryReloc nl il idx reqn exnodes
-       Evacuate exnodes -> Cluster.tryEvac nl il exnodes
+       Relocate idx reqn exnodes -> Cluster.tryMGReloc gl nl il
+                                    idx reqn exnodes
+       Evacuate exnodes -> Cluster.tryMGEvac gl nl il exnodes
 
 -- | Reads the request from the data file(s)
 readRequest :: Options -> [String] -> IO Request