Update a.hs