mirror of
https://github.com/github/semantic.git
synced 2024-12-23 14:54:16 +03:00
Add processJSON function
This commit is contained in:
parent
d253e06720
commit
a64a368c3c
@ -46,24 +46,21 @@ instance ToJSON GitmonMsg where
|
|||||||
"data" .= stats
|
"data" .= stats
|
||||||
]
|
]
|
||||||
|
|
||||||
|
processJSON :: GitmonCommand -> ProcessStats -> ByteString
|
||||||
|
processJSON command stats = toStrict . encode $ GitmonMsg command stats
|
||||||
|
|
||||||
reportGitmon :: ReaderT LgRepo IO a -> ReaderT LgRepo IO a
|
reportGitmon :: ReaderT LgRepo IO a -> ReaderT LgRepo IO a
|
||||||
reportGitmon command = do
|
reportGitmon command = do
|
||||||
soc <- liftIO $ socket AF_UNIX Stream defaultProtocol
|
soc <- liftIO $ socket AF_UNIX Stream defaultProtocol
|
||||||
safeIO $ connect soc (SockAddrUnix "/tmp/gitstats.sock")
|
safeIO $ connect soc (SockAddrUnix "/tmp/gitstats.sock")
|
||||||
|
|
||||||
let startStats = StartStats { repoName = "test-js", via = "gitrpc", gitDir = "/Users/vera/github/test-js", program = "semantic-diff", realIP = Nothing, repoID = Nothing, userID = Nothing }
|
safeIO $ sendAll soc (processJSON Update ProcessBeforeStats { gitDir = "/Users/vera/github/test-js" , via = "semantic-diff" , program = "fetch-tree" , realIP = Just "127.0.0.1" , repoID = Just "128302" , repoName = Just "test-js" , userID = Just "120983" })
|
||||||
let startStatsJSON = toStrict . encode $ GitmonMsg Update startStats
|
|
||||||
safeIO $ sendAll soc startStatsJSON
|
|
||||||
|
|
||||||
result <- command
|
|
||||||
|
|
||||||
let finishStats = FinishStats { cpu = 100, diskReadBytes = 1000, diskWriteBytes = 1000, resultCode = 0 }
|
|
||||||
let finishStatsJSON = toStrict . encode $ GitmonMsg Finish finishStats
|
|
||||||
!result <- command
|
!result <- command
|
||||||
|
|
||||||
safeIO $ sendAll soc finishStatsJSON `catch` noop
|
safeIO $ sendAll soc (processJSON Finish ProcessAfterStats { cpu = 100, diskReadBytes = 1000, diskWriteBytes = 1000, resultCode = 0 })
|
||||||
|
|
||||||
safeIO $ close soc `catch` noop
|
safeIO $ close soc
|
||||||
|
|
||||||
return result
|
return result
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user