Revision 8e4e0268 src/Ganeti/ConstantUtils.hs

b/src/Ganeti/ConstantUtils.hs
66 66 

  		





  67
  67
  
    
-- | Failure exit code


  		





  68
  68
  
    
--


  		





  69
  
  
    
-- This is defined here and not in 'Ganeti.HsConstants' together with


  		





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


  		





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


  		





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


  		





  72
  72
  
    
exitFailure :: Int


  		





  ......




  88
  88
  
    
randomUuidFile :: String


  		





  89
  89
  
    
randomUuidFile = "/proc/sys/kernel/random/uuid"


  		





  90
  90
  
    

  		





  91
  
  
    
-- | Priority levels


  		





  
  91
  
    
-- * Priority levels


  		





  92
  92
  
    
--


  		





  93
  
  
    
-- This is defined here and not in 'Ganeti.Types' order to avoid a GHC


  		





  94
  
  
    
-- stage restriction and because there is no suitable 'declareADT'


  		





  
  93
  
    
-- This is defined here and not in 'Ganeti.Types' in order to avoid a


  		





  
  94
  
    
-- GHC stage restriction and because there is no suitable 'declareADT'


  		





  95
  95
  
    
-- variant that handles integer values directly.


  		





  
  96
  
    

  		





  96
  97
  
    
priorityLow :: Int


  		





  97
  98
  
    
priorityLow = 10


  		





  98
  99
  
    

  		





  ......




  107
  108
  
    
buildVersion :: Int -> Int -> Int -> Int


  		





  108
  109
  
    
buildVersion major minor revision =


  		





  109
  110
  
    
  1000000 * major + 10000 * minor + 1 * revision


  		





  
  111
  
    

  		





  
  112
  
    
-- * Confd request query fields.


  		





  
  113
  
    
--


  		





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


  		





  
  115
  
    
-- restrictions concerning Template Haskell.  They are also not


  		





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


  		





  
  117
  
    
-- dependency between that module and 'Ganeti.Types'.


  		





  
  118
  
    

  		





  
  119
  
    
confdReqqLink :: String


  		





  
  120
  
    
confdReqqLink = "0"


  		





  
  121
  
    

  		





  
  122
  
    
confdReqqIp :: String


  		





  
  123
  
    
confdReqqIp = "1"


  		





  
  124
  
    

  		





  
  125
  
    
confdReqqIplist :: String


  		





  
  126
  
    
confdReqqIplist = "2"


  		





  
  127
  
    

  		





  
  128
  
    
confdReqqFields :: String


  		





  
  129
  
    
confdReqqFields = "3"


  		












Also available in:
  Unified diff