Update Common.hs