Fixed haskell implementation of test suite.