Revision c6484f0b Ganeti/HTools/Utils.hs

b/Ganeti/HTools/Utils.hs
38 38 

  		





  39
  39
  
    
import Data.List


  		





  40
  40
  
    
import Control.Monad


  		





  41
  
  
    
import System


  		





  42
  
  
    
import System.IO


  		





  43
  41
  
    
import qualified Text.JSON as J


  		





  44
  42
  
    
import Text.Printf (printf)


  		





  45
  43
  
    

  		





  46
  
  
    
import Ganeti.HTools.Types


  		





  47
  
  
    

  		





  48
  44
  
    
import Debug.Trace


  		





  49
  45
  
    

  		





  50
  46
  
    
-- * Debug functions


  		





  ......




  69
  65
  
    
    where (x, xs) = break (== sep) s


  		





  70
  66
  
    
          ys = drop 1 xs


  		





  71
  67
  
    

  		





  72
  
  
    
-- | Partial application of sepSplit to @'.'@


  		





  73
  
  
    
commaSplit :: String -> [String]


  		





  74
  
  
    
commaSplit = sepSplit ','


  		





  75
  
  
    

  		





  76
  68
  
    
-- | Simple version of 'fst' for a triple


  		





  77
  69
  
    
fst3 :: (a, b, c) -> a


  		





  78
  70
  
    
fst3 (a, _, _) = a


  		












Also available in:
  Unified diff