Revision 46300ac2 htools/Ganeti/Confd/Server.hs

b/htools/Ganeti/Confd/Server.hs
43 43 
import System.IO
44 44 
import System.Posix.Files
45 45 
import System.Posix.Types
46 
import System.Time
47 46 
import qualified Text.JSON as J
48 47 
import System.INotify
49 48 

  		





  ......




  132
  131
  
    
queryArgumentError :: StatusAnswer


  		





  133
  132
  
    
queryArgumentError = (ReplyStatusError, J.showJSON ConfdErrorArgument)


  		





  134
  133
  
    

  		





  135
  
  
    
-- | Returns the current time.


  		





  136
  
  
    
getCurrentTime :: IO Integer


  		





  137
  
  
    
getCurrentTime = do


  		





  138
  
  
    
  TOD ctime _ <- getClockTime


  		





  139
  
  
    
  return ctime


  		





  140
  
  
    

  		





  141
  134
  
    
-- | Converter from specific error to a string format.


  		





  142
  135
  
    
gntErrorToResult :: ErrorResult a -> Result a


  		





  143
  136
  
    
gntErrorToResult (Bad err) = Bad (show err)


  		












Also available in:
  Unified diff