Follow Int to Int64 changes in ekg-core
This commit is contained in:
parent
0f8352cff3
commit
404c891610
1 changed files with 2 additions and 1 deletions
|
@ -44,6 +44,7 @@ module System.Remote.Monitoring
|
||||||
|
|
||||||
import Control.Concurrent (ThreadId, forkIO)
|
import Control.Concurrent (ThreadId, forkIO)
|
||||||
import qualified Data.ByteString as S
|
import qualified Data.ByteString as S
|
||||||
|
import Data.Int (Int64)
|
||||||
import qualified Data.Text as T
|
import qualified Data.Text as T
|
||||||
import Data.Time.Clock.POSIX (getPOSIXTime)
|
import Data.Time.Clock.POSIX (getPOSIXTime)
|
||||||
import Prelude hiding (read)
|
import Prelude hiding (read)
|
||||||
|
@ -207,7 +208,7 @@ forkServerWith store host port = do
|
||||||
tid <- forkIO $ startServer store host port
|
tid <- forkIO $ startServer store host port
|
||||||
return $! Server tid store
|
return $! Server tid store
|
||||||
where
|
where
|
||||||
getTimeMs :: IO Int
|
getTimeMs :: IO Int64
|
||||||
getTimeMs = (round . (* 1000)) `fmap` getPOSIXTime
|
getTimeMs = (round . (* 1000)) `fmap` getPOSIXTime
|
||||||
|
|
||||||
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
||||||
|
|
Loading…
Reference in a new issue