Interactive-Haskell crash my Emacs

[Pitometsu]

When I run Interactive-Haskell with next .ghci

:set -package funnyprint

:def color (\_ -> return (":set -interactive-print=FunnyPrint.funnyPrint\n:set prompt \"" ++ FunnyPrint.prompt "λ " "%s" " ¬\\nλ > " ++ "\"" ++ "\n:set prompt2 \"" ++ FunnyPrint.prompt2 "λ" "" " | " ++ "\""))
:def nocolor (\_ -> return ":set -interactive-print=print\n:set prompt \"%s> \"\n:set prompt2 \"%s| \"")

After I run :color in Interactive-Haskell session to enable colorful output, and switch back to haskell-mode buffer, haskell-doc stuck, trying to show me type for function under cursor, and Emacs crash.

[Pitometsu]

Fatal error 6: Aborted^[^[[1;3A^[OA^[OA
Backtrace:
emacs[0x4fd84b]
emacs[0x4e4a0b]
emacs[0x4fd8a3]
emacs[0x4e6c9b]
emacs[0x4fd535]
/nix/store/yxkk1j7h8kyglippv2df0gcx8yknhirb-glibc-2.23/lib/libpthread.so.0(+0x10e70)[0x7f95d69a0e70]
/nix/store/yxkk1j7h8kyglippv2df0gcx8yknhirb-glibc-2.23/lib/libc.so.6(pselect+0xac)[0x7f95d66cf95c]
emacs[0x5c7dc9]
emacs[0x59477a]
emacs[0x595f41]
emacs[0x555382]
emacs[0x55571d]
emacs[0x5584f8]
emacs[0x555416]
emacs[0x555b9d]
emacs[0x554e48]
emacs[0x5551be]
emacs[0x55845d]
emacs[0x555416]
emacs[0x555b9d]
emacs[0x554e48]
emacs[0x5551be]
emacs[0x558328]
emacs[0x555416]
emacs[0x555416]
emacs[0x55571d]
emacs[0x555416]
emacs[0x555416]
emacs[0x55845d]
emacs[0x555416]
emacs[0x555b9d]
emacs[0x554e48]
emacs[0x5551be]
emacs[0x555416]
emacs[0x555835]
emacs[0x555416]
emacs[0x55845d]
emacs[0x555416]
emacs[0x55571d]
emacs[0x555416]
emacs[0x555416]
...
[1]  + 26604 abort      emacs -nw

[Pitometsu]

And, until I do (haskell-interactive-mode-clear), history navigation keybindings broken as well: it just move cursor around Interactive-Haskell buffer.

---

Why changing prompt and changing interactive-print function break Interactive-Haskell and haskell-doc?

[Pitometsu]

Issue with haskell-doc. Close this because of #1353