Revision 19e310cc htools/Ganeti/HTools/Utils.hs

b/htools/Ganeti/HTools/Utils.hs
34 34 
  , tryRead
35 35 
  , formatTable
36 36 
  , parseUnit
37 
  , plural
37 38 
  ) where
38 39 

  		





  39
  40
  
    
import Data.Char (toUpper)


  		





  ......




  76
  77
  
    
  where (x, xs) = break (== sep) s


  		





  77
  78
  
    
        ys = drop 1 xs


  		





  78
  79
  
    

  		





  
  80
  
    
-- | Simple pluralize helper


  		





  
  81
  
    
plural :: Int -> String -> String -> String


  		





  
  82
  
    
plural 1 s _ = s


  		





  
  83
  
    
plural _ _ p = p


  		





  
  84
  
    

  		





  79
  85
  
    
-- * Mathematical functions


  		





  80
  86
  
    

  		





  81
  87
  
    
-- Simple and slow statistical functions, please replace with better


  		












Also available in:
  Unified diff