Revision 3329f4de htools/Ganeti/Runtime.hs

b/htools/Ganeti/Runtime.hs
92 92

  
93 93
-- | Returns the log file for a daemon.
94 94
daemonLogFile :: GanetiDaemon -> FilePath
95
daemonLogFile GanetiConfd = C.daemonsLogfilesGanetiConfd
96
daemonLogFile _           = error "Unimplemented"
95
daemonLogFile daemon = C.logDir </> daemonName daemon <.> "log"
97 96

  
98 97
-- | Returns the pid file name for a daemon.
99 98
daemonPidFile :: GanetiDaemon -> FilePath
100
daemonPidFile daemon = C.runGanetiDir </> daemonName daemon <.> "pid"
99
daemonPidFile daemon = C.runDir </> daemonName daemon <.> "pid"
101 100

  
102 101
-- | All groups list. A bit hacking, as we can't enforce it's complete
103 102
-- at compile time.

Also available in: Unified diff