Synnefo » snf-ganeti

import Ganeti.BasicTypes

import qualified Ganeti.Constants as C

import qualified Ganeti.Locking.Allocation as L

import Ganeti.Locking.Locks (ClientId(..))

import Ganeti.Logging.Lifted (logDebug, logInfo)

import Ganeti.WConfd.Monad

        died <- liftIO (isDead fpath)

        when died $ do

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

          _ <- liftIO . try $ removeFile fpath

               :: WConfdMonad (Either IOError ())

          return ()