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

Get the vertices from the map.

Browse Source
This commit is contained in:
Rob Rix 2018-06-19 12:49:59 -04:00
parent 1bdb613edd
commit 3451a0c264
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

@ -42,7 +42,7 @@ labelWithInEdgeCounts
((,) . flip Monoidal.singleton 0 <*> Class.vertex)
(<>)
(\ (outM, outG) (inM, inG) ->
( outM <> inM <> foldMap (flip Monoidal.singleton (Monoid.Sum (length outG))) (allVertices inG)
( outM <> inM <> foldMap (flip Monoidal.singleton (Monoid.Sum (length outG))) (Monoidal.keys inM)
, outG `Class.connect` inG
))
where mapGraph edgeCountsByVertex g = pairWithCountIn edgeCountsByVertex <$> g