fix tests/test.hs