Revision f3010b75 src/Ganeti/WConfd/DeathDetection.hs

b/src/Ganeti/WConfd/DeathDetection.hs
36 36 
  ) where
37 37 

  		





  38
  38
  
    
import Control.Concurrent (threadDelay)


  		





  39
  
  
    
import Control.Exception (bracket)


  		





  
  39
  
    
import Control.Exception (bracket, try)


  		





  40
  40
  
    
import Control.Monad


  		





  41
  41
  
    
import System.Directory


  		





  42
  42
  
    
import System.IO


  		





  ......




  75
  75
  
    
        when died $ do


  		





  76
  76
  
    
          logInfo $ show owner ++ " died, releasing locks"


  		





  77
  77
  
    
          modifyLockAllocation_ (`L.freeLocks` owner)


  		





  
  78
  
    
          _ <- liftIO . try $ removeFile fpath


  		





  
  79
  
    
               :: WConfdMonad (Either IOError ())


  		





  
  80
  
    
          return ()


  		





  78
  81
  
    
  mapM_ cleanupIfDead owners


  		





  79
  82
  
    
  liftIO $ threadDelay cleanupInterval


  		












Also available in:
  Unified diff