Revision df726590 src/Ganeti/HsConstants.hs

b/src/Ganeti/HsConstants.hs
41 41

  
42 42
import AutoConf
43 43
import Ganeti.ConstantUtils (FrozenSet, Protocol(..))
44
import qualified Ganeti.ConstantUtils as ConstantUtils (mkSet, exitFailure)
44
import qualified Ganeti.ConstantUtils as ConstantUtils
45 45
import Ganeti.Runtime (GanetiDaemon(..), MiscGroup(..), GanetiGroup(..),
46 46
                       ExtraLogReason(..))
47
import Ganeti.Logging (SyslogUsage(..))
48
import qualified Ganeti.Logging as Logging (syslogUsageToRaw)
47 49
import qualified Ganeti.Runtime as Runtime
48 50

  
49 51
-- * Admin states
......
178 180
extraLogreasonError :: String
179 181
extraLogreasonError = Runtime.daemonsExtraLogbase GanetiMond ErrorLog
180 182

  
183
devConsole :: String
184
devConsole = ConstantUtils.devConsole
185

  
186
-- * Syslog
187

  
188
syslogUsage :: String
189
syslogUsage = AutoConf.syslogUsage
190

  
191
syslogNo :: String
192
syslogNo = Logging.syslogUsageToRaw SyslogNo
193

  
194
syslogYes :: String
195
syslogYes = Logging.syslogUsageToRaw SyslogYes
196

  
197
syslogOnly :: String
198
syslogOnly = Logging.syslogUsageToRaw SyslogOnly
199

  
200
syslogSocket :: String
201
syslogSocket = "/dev/log"
202

  
181 203
-- * Common exit codes
182 204

  
183 205
exitSuccess :: Int

Also available in: Unified diff