Revision f361a6ee src/Ganeti/HsConstants.hs

b/src/Ganeti/HsConstants.hs
102 102

  
103 103
sshConsoleUser :: String
104 104
sshConsoleUser = AutoConf.sshConsoleUser
105

  
106
-- * SSH constants
107

  
108
ssh :: String
109
ssh = "ssh"
110

  
111
scp :: String
112
scp = "scp"
113

  
114
-- * Daemons
115

  
116
confd :: String
117
confd = "ganeti-confd"
118

  
119
masterd :: String
120
masterd = "ganeti-masterd"
121

  
122
mond :: String
123
mond = "ganeti-mond"
124

  
125
noded :: String
126
noded = "ganeti-noded"
127

  
128
luxid :: String
129
luxid = "ganeti-luxid"
130

  
131
rapi :: String
132
rapi = "ganeti-rapi"
133

  
134
daemons :: FrozenSet String
135
daemons =
136
  mkSet [confd,
137
         luxid,
138
         masterd,
139
         mond,
140
         noded,
141
         rapi]
142

  
143
-- * Possible values for NodeGroup.alloc_policy
144

  
145
allocPolicyLastResort :: String
146
allocPolicyLastResort = "last_resort"
147

  
148
allocPolicyPreferred :: String
149
allocPolicyPreferred = "preferred"
150

  
151
allocPolicyUnallocable :: String
152
allocPolicyUnallocable = "unallocable"
153

  
154
validAllocPolicies :: [String]
155
validAllocPolicies =
156
  [allocPolicyLastResort,
157
   allocPolicyPreferred,
158
   allocPolicyUnallocable]
159

  
160
-- | Temporary external/shared storage parameters
161
blockdevDriverManual :: String
162
blockdevDriverManual = "manual"
163

  
164
-- * Auto-repair tag prefixes
165

  
166
autoRepairTagPrefix :: String
167
autoRepairTagPrefix = "ganeti:watcher:autorepair:"
168

  
169
autoRepairTagEnabled :: String
170
autoRepairTagEnabled = autoRepairTagPrefix
171

  
172
autoRepairTagPending :: String
173
autoRepairTagPending = autoRepairTagPrefix ++ "pending:"
174

  
175
autoRepairTagResult :: String
176
autoRepairTagResult = autoRepairTagPrefix ++ "result:"
177

  
178
autoRepairTagSuspended :: String
179
autoRepairTagSuspended = autoRepairTagPrefix ++ "suspend:"
180

  
181
-- * Auto-repair levels
182

  
183
autoRepairFailover :: String
184
autoRepairFailover = "failover"
185

  
186
autoRepairFixStorage :: String
187
autoRepairFixStorage = "fix-storage"
188

  
189
autoRepairMigrate :: String
190
autoRepairMigrate = "migrate"
191

  
192
autoRepairReinstall :: String
193
autoRepairReinstall = "reinstall"
194

  
195
autoRepairAllTypes :: FrozenSet String
196
autoRepairAllTypes =
197
  mkSet [autoRepairFailover,
198
         autoRepairFixStorage,
199
         autoRepairMigrate,
200
         autoRepairReinstall]
201

  
202
-- * Auto-repair results
203

  
204
autoRepairEnoperm :: String
205
autoRepairEnoperm = "enoperm"
206

  
207
autoRepairFailure :: String
208
autoRepairFailure = "failure"
209

  
210
autoRepairSuccess :: String
211
autoRepairSuccess = "success"
212

  
213
autoRepairAllResults :: FrozenSet String
214
autoRepairAllResults =
215
  mkSet [autoRepairEnoperm, autoRepairFailure, autoRepairSuccess]
216

  
217
-- | The version identifier for builtin data collectors
218
builtinDataCollectorVersion :: String
219
builtinDataCollectorVersion = "B"

Also available in: Unified diff