github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00
Code Issues Projects Releases Wiki Activity

Try out the new statCount API

Browse Source
This commit is contained in:
Timothy Clem 2018-06-13 16:41:32 -07:00
parent cea7a4a880
commit 5ad2b64769
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Semantic/Diff.hs
View File

@ -46,7 +46,7 @@ withParsedBlobPairs decorate render = distributeFoldMap (\ blobs -> WrapTask (wi
where diffTerms :: (Diffable syntax, Eq1 syntax, Hashable1 syntax, Traversable syntax, Member IO effs, Member Task effs, Member Telemetry effs) => BlobPair -> Join These (Term syntax (Record fields)) -> Eff effs (Diff syntax (Record fields) (Record fields))
diffTerms blobs terms = time "diff" languageTag $ do
diff <- diff (runJoin terms)
diff <$ writeStat (Stat.count "diff.nodes" (bilength diff) languageTag)
diff <$ statCount "diff.nodes" (bilength diff) languageTag
where languageTag = languageTagForBlobPair blobs
withParsedBlobPair :: (Member (Distribute WrappedTask) effs, Member (Exc SomeException) effs)