Update CCT.hs