Revision e1235448 src/Ganeti/ConstantUtils.hs

b/src/Ganeti/ConstantUtils.hs
89 89 

  		





  90
  90
  
    
-- | Failure exit code


  		





  91
  91
  
    
--


  		





  92
  
  
    
-- These are defined here and not in 'Ganeti.HsConstants' together with


  		





  
  92
  
    
-- These are defined here and not in 'Ganeti.Constants' together with


  		





  93
  93
  
    
-- the other exit codes in order to avoid a circular dependency


  		





  94
  
  
    
-- between 'Ganeti.HsConstants' and 'Ganeti.Runtime'


  		





  
  94
  
    
-- between 'Ganeti.Constants' and 'Ganeti.Runtime'


  		





  95
  95
  
    
exitFailure :: Int


  		





  96
  96
  
    
exitFailure = 1


  		





  97
  97
  
    

  		





  98
  98
  
    
-- | Console device


  		





  99
  99
  
    
--


  		





  100
  
  
    
-- This is defined here and not in 'Ganeti.HsConstants' order to avoid


  		





  101
  
  
    
-- a circular dependency between 'Ganeti.HsConstants' and


  		





  102
  
  
    
-- 'Ganeti.Logging'


  		





  
  100
  
    
-- This is defined here and not in 'Ganeti.Constants' order to avoid a


  		





  
  101
  
    
-- circular dependency between 'Ganeti.Constants' and 'Ganeti.Logging'


  		





  103
  102
  
    
devConsole :: String


  		





  104
  103
  
    
devConsole = "/dev/console"


  		





  105
  104
  
    

  		





  106
  105
  
    
-- | Random uuid generator


  		





  107
  106
  
    
--


  		





  108
  
  
    
-- This is defined here and not in 'Ganeti.HsConstants' order to avoid


  		





  109
  
  
    
-- a circular dependendy between 'Ganeti.HsConstants' and


  		





  110
  
  
    
-- 'Ganeti.Types'


  		





  
  107
  
    
-- This is defined here and not in 'Ganeti.Constants' order to avoid a


  		





  
  108
  
    
-- circular dependendy between 'Ganeti.Constants' and 'Ganeti.Types'


  		





  111
  109
  
    
randomUuidFile :: String


  		





  112
  110
  
    
randomUuidFile = "/proc/sys/kernel/random/uuid"


  		





  113
  111
  
    

  		





  ......




  135
  133
  
    
-- | Confd protocol version


  		





  136
  134
  
    
--


  		





  137
  135
  
    
-- This is defined here in order to avoid a circular dependency


  		





  138
  
  
    
-- between 'Ganeti.Confd.Types' and 'Ganeti.HsConstants'.


  		





  
  136
  
    
-- between 'Ganeti.Confd.Types' and 'Ganeti.Constants'.


  		





  139
  137
  
    
confdProtocolVersion :: Int


  		





  140
  138
  
    
confdProtocolVersion = 1


  		





  141
  139
  
    

  		





  ......




  143
  141
  
    
--


  		





  144
  142
  
    
-- These are defined here and not in 'Ganeti.Types' due to GHC stage


  		





  145
  143
  
    
-- restrictions concerning Template Haskell.  They are also not


  		





  146
  
  
    
-- defined in 'Ganeti.HsConstants' in order to avoid a circular


  		





  
  144
  
    
-- defined in 'Ganeti.Constants' in order to avoid a circular


  		





  147
  145
  
    
-- dependency between that module and 'Ganeti.Types'.


  		





  148
  146
  
    

  		





  149
  147
  
    
confdReqqLink :: String


  		












Also available in:
  Unified diff