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