The process IDs for the kvm processes controlled by Ganeti
are stored in pid files, explicitly specified for Ganeti.
While the canonical reference for those files is in the kvm
hypervisor code (lib/hypvervisor/hv_kvm/__init__.py), also
provide that path in the Haskell world via the path utils.

Signed-off-by: Klaus Aehlig <[email protected]>
---
 src/Ganeti/Path.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Ganeti/Path.hs b/src/Ganeti/Path.hs
index 2b52d85..8c02dea 100644
--- a/src/Ganeti/Path.hs
+++ b/src/Ganeti/Path.hs
@@ -58,6 +58,7 @@ module Ganeti.Path
   , instanceReasonDir
   , getInstReasonFilename
   , jqueueExecutorPy
+  , kvmPidDir
   ) where
 
 import System.FilePath
@@ -190,3 +191,7 @@ getInstReasonFilename instName = instanceReasonDir `pjoin` 
instName
 jqueueExecutorPy :: IO FilePath
 jqueueExecutorPy = return $ versionedsharedir
                             </> "ganeti" </> "jqueue" </> "exec.py"
+
+-- | The path to the directory where kvm stores the pid files.
+kvmPidDir :: IO FilePath
+kvmPidDir = runDir `pjoin` "kvm-hypervisor" `pjoin` "pid"
-- 
2.6.0.rc2.230.g3dd15c0

Reply via email to