Fix Haskell Token toString