Update Test.hs