Update Adjacency.hs to use new mapreduce combinator.