Revision 669ea132 hail.hs

b/hail.hs
62 62 
processRequest :: Request
63 63 
               -> Result Cluster.AllocSolution
64 64 
processRequest request =
65 
  let Request rqtype nl il _ = request
65 
  let Request rqtype nl il _ _ = request
66 66 
  in case rqtype of
67 67 
       Allocate xi reqn -> Cluster.tryAlloc nl il xi reqn
68 68 
       Relocate idx reqn exnodes -> Cluster.tryReloc nl il idx reqn exnodes
......
86 86 
                 exitWith $ ExitFailure 1
87 87 
               Ok rq -> return rq
88 88 

  		





  89
  
  
    
  let Request _ _ _ csf = request


  		





  
  89
  
    
  let Request _ _ _ _ csf = request


  		





  90
  90
  
    
      sols = processRequest request >>= processResults


  		





  91
  91
  
    
  let (ok, info, rn) =


  		





  92
  92
  
    
          case sols of


  		












Also available in:
  Unified diff