We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 3c97367 commit 47084daCopy full SHA for 47084da
semantic-analysis/src/Analysis/Syntax.hs
@@ -173,6 +173,7 @@ parseNode o = do
173
attrs <- edge A..: pack "attrs"
174
f attrs
175
pure (IntMap.! sink))
176
+ findEdgeNamed :: (A.FromJSON a, Eq a) => a -> A.Parser (IntMap.IntMap rep -> rep)
177
findEdgeNamed name = foldMap (resolveWith (\ attrs -> attrs A..: pack "type" >>= guard . (== name))) edges
178
o A..: pack "attrs" >>= A.withObject "attrs" (\ attrs -> do
179
ty <- attrs A..: pack "type"
0 commit comments