Added Type/Common.hs