Revision ace37e24 src/Ganeti/Confd/Utils.hs

b/src/Ganeti/Confd/Utils.hs
37 37 

  		





  38
  38
  
    
import qualified Data.ByteString as B


  		





  39
  39
  
    
import qualified Text.JSON as J


  		





  40
  
  
    
import System.Time


  		





  41
  40
  
    

  		





  42
  41
  
    
import Ganeti.BasicTypes


  		





  43
  42
  
    
import Ganeti.Confd.Types


  		





  ......




  96
  95
  
    
                , signedMsgHmac = hmac


  		





  97
  96
  
    
                }


  		





  98
  97
  
    
    where hmac = computeMac key (Just salt) msg


  		





  99
  
  
    

  		





  100
  
  
    
-- | Returns the current time.


  		





  101
  
  
    
getCurrentTime :: IO Integer


  		





  102
  
  
    
getCurrentTime = do


  		





  103
  
  
    
  TOD ctime _ <- getClockTime


  		





  104
  
  
    
  return ctime


  		












Also available in:
  Unified diff