Revision 1cf97474

b/Ganeti/HTools/ExtLoader.hs
33 33 
    ( loadExternalData
34 34 
    ) where
35 35 

  		





  36
  
  
    
import Control.Exception


  		





  37
  36
  
    
import Data.Maybe (isJust, fromJust)


  		





  38
  37
  
    
import Monad


  		





  39
  38
  
    
import System.Posix.Env


  		





  ......




  65
  64
  
    

  		





  66
  65
  
    
-- | Error beautifier


  		





  67
  66
  
    
wrapIO :: IO (Result a) -> IO (Result a)


  		





  68
  
  
    
wrapIO = handle (return . Bad . show)


  		





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


  		





  69
  68
  
    

  		





  70
  69
  
    
-- | External tool data loader from a variety of sources.


  		





  71
  70
  
    
loadExternalData :: Options


  		












Also available in:
  Unified diff