Find cycle in graph with disjoin set (haskell)

detect cycle in graph

disjoin set - https://youtu.be/jrnn_Hit7HI graphs intro with haskell - https://www.youtube.com/watch?v=RS7eIkETdIQ ... https://www.youtube.com/watch?v=k_-ltj-jsG8