Revision 3af1359f src/Ganeti/Runtime.hs

b/src/Ganeti/Runtime.hs
4 4

  
5 5
{-
6 6

  
7
Copyright (C) 2011, 2012, 2013 Google Inc.
7
Copyright (C) 2011, 2012, 2013, 2014 Google Inc.
8 8

  
9 9
This program is free software; you can redistribute it and/or modify
10 10
it under the terms of the GNU General Public License as published by
......
60 60
import AutoConf
61 61

  
62 62
data GanetiDaemon = GanetiMasterd
63
                  | GanetiMetad
63 64
                  | GanetiNoded
64 65
                  | GanetiRapi
65 66
                  | GanetiConfd
......
81 82
-- | Returns the daemon name for a given daemon.
82 83
daemonName :: GanetiDaemon -> String
83 84
daemonName GanetiMasterd = "ganeti-masterd"
85
daemonName GanetiMetad   = "ganeti-metad"
84 86
daemonName GanetiNoded   = "ganeti-noded"
85 87
daemonName GanetiRapi    = "ganeti-rapi"
86 88
daemonName GanetiConfd   = "ganeti-confd"
......
91 93
-- | Returns whether the daemon only runs on the master node.
92 94
daemonOnlyOnMaster :: GanetiDaemon -> Bool
93 95
daemonOnlyOnMaster GanetiMasterd = True
96
daemonOnlyOnMaster GanetiMetad   = False
94 97
daemonOnlyOnMaster GanetiNoded   = False
95 98
daemonOnlyOnMaster GanetiRapi    = False
96 99
daemonOnlyOnMaster GanetiConfd   = False
......
101 104
-- | Returns the log file base for a daemon.
102 105
daemonLogBase :: GanetiDaemon -> String
103 106
daemonLogBase GanetiMasterd = "master-daemon"
107
daemonLogBase GanetiMetad   = "meta-daemon"
104 108
daemonLogBase GanetiNoded   = "node-daemon"
105 109
daemonLogBase GanetiRapi    = "rapi-daemon"
106 110
daemonLogBase GanetiConfd   = "conf-daemon"
......
111 115
-- | Returns the configured user name for a daemon.
112 116
daemonUser :: GanetiDaemon -> String
113 117
daemonUser GanetiMasterd = AutoConf.masterdUser
118
daemonUser GanetiMetad   = AutoConf.metadUser
114 119
daemonUser GanetiNoded   = AutoConf.nodedUser
115 120
daemonUser GanetiRapi    = AutoConf.rapiUser
116 121
daemonUser GanetiConfd   = AutoConf.confdUser
......
121 126
-- | Returns the configured group for a daemon.
122 127
daemonGroup :: GanetiGroup -> String
123 128
daemonGroup (DaemonGroup GanetiMasterd) = AutoConf.masterdGroup
129
daemonGroup (DaemonGroup GanetiMetad)   = AutoConf.metadGroup
124 130
daemonGroup (DaemonGroup GanetiNoded)   = AutoConf.nodedGroup
125 131
daemonGroup (DaemonGroup GanetiRapi)    = AutoConf.rapiGroup
126 132
daemonGroup (DaemonGroup GanetiConfd)   = AutoConf.confdGroup

Also available in: Unified diff