Revision 30d25dd8 htools/Ganeti/HTools/ExtLoader.hs

b/htools/Ganeti/HTools/ExtLoader.hs
34 34 
  ) where
35 35 

  		





  36
  36
  
    
import Control.Monad


  		





  
  37
  
    
import Control.Exception


  		





  37
  38
  
    
import Data.Maybe (isJust, fromJust)


  		





  
  39
  
    
import Prelude hiding (catch)


  		





  38
  40
  
    
import System.FilePath


  		





  39
  41
  
    
import System.IO


  		





  40
  42
  
    
import Text.Printf (hPrintf)


  		





  ......




  53
  55
  
    

  		





  54
  56
  
    
-- | Error beautifier.


  		





  55
  57
  
    
wrapIO :: IO (Result a) -> IO (Result a)


  		





  56
  
  
    
wrapIO = flip catch (return . Bad . show)


  		





  
  58
  
    
wrapIO = flip catch (\e -> return . Bad . show $ (e::IOException))


  		





  57
  59
  
    

  		





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


  		





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


  		












Also available in:
  Unified diff