-- | Find edge ending on the given position.
findEdgeTo :: Int -> DAG a -> [Edge a]
findEdgeTo i = filter ((==i) . to)
findEdgeTo :: Int -> DAG a -> [Edge a]
findEdgeTo i = filter ((==i) . to)
findEdgeTo i = filter ((==i) . to)