Revision 670e954a src/Ganeti/Runtime.hs

b/src/Ganeti/Runtime.hs
29 29
  , GanetiGroup(..)
30 30
  , RuntimeEnts
31 31
  , daemonName
32
  , daemonOnlyOnMaster
32 33
  , daemonUser
33 34
  , daemonGroup
34 35
  , daemonLogFile
......
56 57
                  | GanetiNoded
57 58
                  | GanetiRapi
58 59
                  | GanetiConfd
60
                  | GanetiQueryd
59 61
                  | GanetiMond
60 62
                    deriving (Show, Enum, Bounded, Eq, Ord)
61 63

  
......
75 77
daemonName GanetiNoded   = C.noded
76 78
daemonName GanetiRapi    = C.rapi
77 79
daemonName GanetiConfd   = C.confd
80
daemonName GanetiQueryd  = C.queryd
78 81
daemonName GanetiMond    = C.mond
79 82

  
83
-- | Returns whether the daemon only runs on the master node.
84
daemonOnlyOnMaster :: GanetiDaemon -> Bool
85
daemonOnlyOnMaster GanetiMasterd = True
86
daemonOnlyOnMaster GanetiNoded   = False
87
daemonOnlyOnMaster GanetiRapi    = False
88
daemonOnlyOnMaster GanetiConfd   = False
89
daemonOnlyOnMaster GanetiQueryd  = True
90
daemonOnlyOnMaster GanetiMond    = False
91

  
80 92
-- | Returns the log file base for a daemon.
81 93
daemonLogBase :: GanetiDaemon -> String
82 94
daemonLogBase GanetiMasterd = C.daemonsLogbaseGanetiMasterd
83 95
daemonLogBase GanetiNoded   = C.daemonsLogbaseGanetiNoded
84 96
daemonLogBase GanetiRapi    = C.daemonsLogbaseGanetiRapi
85 97
daemonLogBase GanetiConfd   = C.daemonsLogbaseGanetiConfd
98
daemonLogBase GanetiQueryd  = C.daemonsLogbaseGanetiQueryd
86 99
daemonLogBase GanetiMond    = C.daemonsLogbaseGanetiMond
87 100

  
88 101
-- | Returns the configured user name for a daemon.
......
91 104
daemonUser GanetiNoded   = C.nodedUser
92 105
daemonUser GanetiRapi    = C.rapiUser
93 106
daemonUser GanetiConfd   = C.confdUser
107
daemonUser GanetiQueryd  = C.querydUser
94 108
daemonUser GanetiMond    = C.mondUser
95 109

  
96 110
-- | Returns the configured group for a daemon.
......
99 113
daemonGroup (DaemonGroup GanetiNoded)   = C.nodedGroup
100 114
daemonGroup (DaemonGroup GanetiRapi)    = C.rapiGroup
101 115
daemonGroup (DaemonGroup GanetiConfd)   = C.confdGroup
116
daemonGroup (DaemonGroup GanetiQueryd)  = C.querydGroup
102 117
daemonGroup (DaemonGroup GanetiMond)    = C.mondGroup
103 118
daemonGroup (ExtraGroup  DaemonsGroup)  = C.daemonsGroup
104 119
daemonGroup (ExtraGroup  AdminGroup)    = C.adminGroup

Also available in: Unified diff