fix for writting haskell