Anton Moscal wrote:
>
> Hello!
>
> I try to run the following script (which copies stdin to stdout):
>
> =====================
> -- #!/usr/local/bin/runhugs
> main =
> catch
> (do c <- getChar; putChar c; main)
> (\e -> (do putChar '$'; putChar '\n'; return ()))
> =====================
> by the command:
>
> runhugs bug.hs <bug.hs
>
> result was very strange: each letter outputted twice, and program
> was not terminated. If I compile this program by ghc or nhc98 all
> works good.
Thanks for your report. Can you tell me what machine this
happened on, and what version of Hugs you were using?
Andy
