vertices' :: Exchange -> [Unit]
vertices' (Exchange d) = nub $ map snd (keys d)
vertices' :: Exchange -> [Unit]
vertices' (Exchange d) = nub $ map snd (keys d)
vertices' (Exchange d) = nub $ map snd (keys d)