Skip to content

Commit 47084da

Browse files
committed
Give a signature for findEdgeNamed.
1 parent 3c97367 commit 47084da

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

semantic-analysis/src/Analysis/Syntax.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -173,6 +173,7 @@ parseNode o = do
173173
attrs <- edge A..: pack "attrs"
174174
f attrs
175175
pure (IntMap.! sink))
176+
findEdgeNamed :: (A.FromJSON a, Eq a) => a -> A.Parser (IntMap.IntMap rep -> rep)
176177
findEdgeNamed name = foldMap (resolveWith (\ attrs -> attrs A..: pack "type" >>= guard . (== name))) edges
177178
o A..: pack "attrs" >>= A.withObject "attrs" (\ attrs -> do
178179
ty <- attrs A..: pack "type"

0 commit comments

Comments
 (0)