Cluster.hs: add a new type alias