Вечереет, а я туплю. Статическая типизация всё-таки сложная штука.
Есть отдельно взятая функция:
addStates :: (DynGraph gr, Eq s) =>
[(s, (s, [x]), (x, y))] -> gr (s, [x]) (x, y) -> (gr (s, [x]) (x, y), [(s, Node)])
addStates ss g = (g', zip s nodes') where
ss' = (`nubBy` ss) $ \(_, (s, _), _) (_, (s', _), _) -> s == s'
g' =
(
Read more... )