Fixed a typo in test.hs.