Revision for Haskell Test