[Haskell] M-RET makes new do-binding under current