Revision ce6a0b53 htools/hail.hs

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

  		





  74
  
  
    
  let resp = runIAllocator request


  		





  
  74
  
    
  let (maybe_nl, resp) = runIAllocator request


  		





  
  75
  
    
      fin_nl = maybe (cdNodes cdata) id maybe_nl


  		





  75
  76
  
    
  putStrLn resp


  		





  
  77
  
    
  when (isJust shownodes) $ do


  		





  
  78
  
    
         hPutStrLn stderr "Final cluster status:"


  		





  
  79
  
    
         hPutStrLn stderr $ Cluster.printNodes fin_nl (fromJust shownodes)


  		












Also available in:
  Unified diff