[Haskell-cafe] Stack space overflow in HaskellNet

[Manfred Lotz]

Hi there,
If I take example imap.hs 


import System.IO
import Network.HaskellNet.IMAP
import Text.Mime
import qualified Data.ByteString.Char8 as BS
import Control.Monad

-- the next lines were changed to fit to my local imap server
imapServer = "imap.mail.org"
user = ""
pass = ""

main = do
  con <- connectIMAP imapServer 
  login con user pass
  mboxes <- list con
  mapM print mboxes
  select con "INBOX"
  msgs <- search con [ALLs]
  mapM_ (\x -> print x) (take 4 msgs)
  forM_ (take 4msgs) (\x -> fetch con x >>= print)
         

and change the last line (in order to print all messages of the
mailbox) into:
   forM_ msgs (\x -> fetch con x >>= print)

I get 
Stack space overflow: current size 8388608 bytes.
Use `+RTS -Ksize -RTS' to increase it.


Is this something to be fixed in the HaskellNet code, or in the example
code?



-- 
Manfred