Revision f9283686 htools/hail.hs

b/htools/hail.hs
71 71 
         hPutStrLn stderr $ Cluster.printNodes (cdNodes cdata)
72 72 
                       (fromJust shownodes)
73 73 

  		





  74
  
  
    
  let (maybe_nl, resp) = runIAllocator request


  		





  75
  
  
    
      fin_nl = maybe (cdNodes cdata) id maybe_nl


  		





  
  74
  
    
  let (maybe_ni, resp) = runIAllocator request


  		





  
  75
  
    
      (fin_nl, fin_il) = maybe (cdNodes cdata, cdInstances cdata) id maybe_ni


  		





  76
  76
  
    
  putStrLn resp


  		





  77
  77
  
    
  when (isJust shownodes) $ do


  		





  78
  78
  
    
         hPutStrLn stderr "Final cluster status:"


  		












Also available in:
  Unified diff