Revision 5b11f8db htools/Ganeti/Confd/Utils.hs

b/htools/Ganeti/Confd/Utils.hs
63 63 
parseMessage hmac msg curtime = do
64 64 
  (salt, origmsg, request) <- parseRequest hmac msg
65 65 
  ts <- tryRead "Parsing timestamp" salt::Result Integer
66 
  if (abs (ts - curtime) > (fromIntegral C.confdMaxClockSkew))
66 
  if abs (ts - curtime) > fromIntegral C.confdMaxClockSkew
67 67 
    then fail "Too old/too new timestamp or clock skew"
68 68 
    else return (origmsg, request)
69 69 

  		












Also available in:
  Unified diff