haskell diagnose added