Recusive IO actions crash with segmentation fault
I am learning Haskell and wrote a program that writes some strings to stdout infinitely by recursing in an IO action. It seems such a simple construct crashes on FreeBSD when Ctrl+C is pressed to interrupt it.
I have been able to reduce it to a simple case like this:
main = do
putStrLn "hello world"
main
I compiled it with
ghc --make hello.hs
Ran it and then pressed Ctrl+C and immediately got:
[...]
hello world
hello world
hello world
hello world
^CSegmentation fault (core dumped)
Here is the backtrace of the crash:
(gdb) bt
#0 0x000000000047cdd7 in generic_handler ()
#1 0x000000080147c467 in swapcontext () from /lib/libthr.so.3
#2 0x000000080147c062 in sigaction () from /lib/libthr.so.3
#3 <signal handler called>
#4 0x00000008017d7b7a in select () from /lib/libc.so.7
#5 0x0000000801479b32 in select () from /lib/libthr.so.3
#6 0x000000000043cb13 in fdReady ()
#7 0x000000000044751c in base_GHCziIOziFD_zdwa3_info ()
#8 0x0000000000000000 in ?? ()
Operating system version is: FreeBSD 10.1-RELEASE-p5 (GENERIC)