github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-11 08:45:48 +03:00
Code Issues Projects Releases Wiki Activity

Vertices are initially zero, rather than unset.

Browse Source
This commit is contained in:
Rob Rix 2018-06-19 12:49:51 -04:00
parent 5a9ea5e61b
commit 1bdb613edd
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/Data/Graph.hs
View File

@ -39,7 +39,7 @@ labelWithInEdgeCounts
= uncurry mapGraph
. Class.foldg
(lowerBound, lowerBound)
((,) lowerBound . Class.vertex)
((,) . flip Monoidal.singleton 0 <*> Class.vertex)
(<>)
(\ (outM, outG) (inM, inG) ->
( outM <> inM <> foldMap (flip Monoidal.singleton (Monoid.Sum (length outG))) (allVertices inG)