Revision 833c32b3 src/Ganeti/WConfd/ConfigState.hs

b/src/Ganeti/WConfd/ConfigState.hs
25 25 

  		





  26
  26
  
    
module Ganeti.WConfd.ConfigState


  		





  27
  27
  
    
  ( ConfigState


  		





  
  28
  
    
  , csConfigData


  		





  28
  29
  
    
  , mkConfigState


  		





  29
  30
  
    
  ) where


  		





  30
  31
  
    

  		





  
  32
  
    
import Ganeti.Objects


  		





  
  33
  
    

  		





  31
  34
  
    
-- | In future this data type will include the current configuration


  		





  32
  35
  
    
-- ('ConfigData') and the last 'FStat' of its file.


  		





  33
  36
  
    
data ConfigState = ConfigState


  		





  
  37
  
    
  { csConfigData :: ConfigData


  		





  
  38
  
    
  }


  		





  34
  39
  
    

  		





  35
  40
  
    
-- | Creates a new configuration state.


  		





  36
  41
  
    
-- This method will expand as more fields are added to 'ConfigState'.


  		





  37
  
  
    
mkConfigState :: ConfigState


  		





  
  42
  
    
mkConfigState :: ConfigData -> ConfigState


  		





  38
  43
  
    
mkConfigState = ConfigState


  		












Also available in:
  Unified diff