Revision 179c0828 htools/Ganeti/HTools/ExtLoader.hs

b/htools/Ganeti/HTools/ExtLoader.hs
55 55 
wrapIO :: IO (Result a) -> IO (Result a)
56 56 
wrapIO = flip catch (return . Bad . show)
57 57 

  		





  
  58
  
    
-- | Parses a user-supplied utilisation string.


  		





  58
  59
  
    
parseUtilisation :: String -> Result (String, DynUtil)


  		





  59
  60
  
    
parseUtilisation line =


  		





  60
  61
  
    
    case sepSplit ' ' line of


  		












Also available in:
  Unified diff