Revision 72747d91 src/Ganeti/HTools/Graph.hs

b/src/Ganeti/HTools/Graph.hs
28 28 

  		





  29
  29
  
    
{-


  		





  30
  30
  
    

  		





  31
  
  
    
Copyright (C) 2012, Google Inc.


  		





  
  31
  
    
Copyright (C) 2012, 2013, Google Inc.


  		





  32
  32
  
    

  		





  33
  33
  
    
This program is free software; you can redistribute it and/or modify


  		





  34
  34
  
    
it under the terms of the GNU General Public License as published by


  		





  ......




  147
  147
  
    
neighColors :: Graph.Graph -> VertColorMap -> Graph.Vertex -> [Color]


  		





  148
  148
  
    
neighColors g cMap v = verticesColors cMap $ neighbors g v


  		





  149
  149
  
    

  		





  
  150
  
    
{-# ANN colorNode "HLint: ignore Use alternative" #-}


  		





  150
  151
  
    
-- | Color one node.


  		





  151
  152
  
    
colorNode :: Graph.Graph -> VertColorMap -> Graph.Vertex -> Color


  		





  152
  153
  
    
-- use of "head" is A-ok as the source is an infinite list


  		












Also available in:
  Unified diff