yogsototh/ekg
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Follow Int to Int64 changes in ekg-core

Browse source
This commit is contained in:
Johan Tibell 2014-04-21 11:42:14 +02:00
parent 0f8352cff3
commit 404c891610
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
System/Remote/Monitoring.hs
View file

@ -44,6 +44,7 @@ module System.Remote.Monitoring
import Control.Concurrent (ThreadId, forkIO)
import qualified Data.ByteString as S
import Data.Int (Int64)
import qualified Data.Text as T
import Data.Time.Clock.POSIX (getPOSIXTime)
import Prelude hiding (read)
@ -207,7 +208,7 @@ forkServerWith store host port = do
tid <- forkIO $ startServer store host port
return $! Server tid store
where
getTimeMs :: IO Int
getTimeMs :: IO Int64
getTimeMs = (round . (* 1000)) `fmap` getPOSIXTime
------------------------------------------------------------------------