fix in the Haskell binding