Update Util.hs