Update result.hs