Synnefo » snf-ganeti

  ) where

import Control.Concurrent

import Control.Monad (forever)

import qualified Data.ByteString as B

import Data.IORef

import Data.List

import qualified Data.Map as M

import qualified Network.Socket as S

import System.Posix.Files

import System.Posix.Types

import System.Time

                    updateConfig path cref

                    return (nt', ConfigReloaded)

        ) (\e -> do

             writeIORef cref (Bad msg)

             return (nullFStat, ConfigIOError)

          )

addNotifier inotify path cref mstate = do

  catch (addWatch inotify [CloseWrite] path

                    (onInotify inotify path cref mstate) >> return True)

-- | Inotify event handler.

onInotify :: INotify -> String -> CRef -> MVar ServerState -> Event -> IO ()

  , genericMain

  ) where

import Control.Monad

import qualified Data.Version

import Data.Word

import qualified Network.Socket as Socket

import System.Console.GetOpt

import System.Exit

import System.Environment

  _ <- fdWrite fd (show my_pid ++ "\n")

  return fd

-- | Wrapper over '_writePidFile' that transforms IO exceptions into a

-- 'Bad' value.

writePidFile :: FilePath -> IO (Result Fd)

writePidFile path = do

-- | Sets up a daemon's environment.

setupDaemonEnv :: FilePath -> FileMode -> IO ()

import Ganeti.THH

import Control.Monad (liftM)

import Data.Char (isSpace)

import Data.Maybe (fromMaybe)

import qualified Network.Socket as Socket

import System.FilePath ((</>))

import qualified Ganeti.Constants as C

import Ganeti.BasicTypes