Of course, I tried that before sending a bug, but it doesn't work. For example,
getCh = do {hSetBuffering stdin NoBuffering; hSetEcho stdin False; x <- getChar; hSetEcho stdin True; return x}
getMyLine = do {x <- getCh; if x=='\n' then do {putChar x; return ""} else do {if x=='b' then putStr "\b \b" else putChar x; xs <- getMyLine; return (x:xs)} }
doesn't work in the expected way. Hugs wrote:
#78: getCh ----------------------+----------------------------------------------------- Reporter: guest | Owner: nobody Type: defect | Status: closed Priority: minor | Milestone: Component: hugs | Version: 200609 Resolution: wontfix | Keywords: ----------------------+----------------------------------------------------- Changes (by ross):
* status: new => closed * resolution: => wontfix
Comment:
It was a Hugs-only function, and now it's gone. You should be able to get the same effect with `hSetBuffering` and `hSetEcho` (from `System.IO`).
------------------------------------------------------------------------
_______________________________________________ Hugs-Bugs mailing list Hugs-Bugs@haskell.org http://www.haskell.org/mailman/listinfo/hugs-bugs