improve Main.hs: instance Show Update