[Haskell-cafe] Trapping getChar before echo

[Michael Hartl]

import System.IO
import Data.Char

main = do
  hSetEcho stdin False
  hSetBuffering stdin NoBuffering
  hSetBuffering stdout NoBuffering
  scanLine
      where scanLine = do 
              c <- hGetChar stdin
              putChar . toUpper $ c
              scanLine


Am Sonntag, den 31.01.2010, 19:17 +1030 schrieb Mark Spezzano:
> Hi,
> 
> Is there any way of trapping keystrokes in Haskell, modifying them, and then echoing?
> 
> Basically I want to give the user a prompt  like:
> >
> 
> and then have whatever they type appear in UPPERCASE regardless of whether caps lock was on or not.
> 
> By default Haskell seems to echo characters in whatever case they were typed. I want to sneak in a toUpper in before the Chars get echoed.
> 
> Thanks
> 
> Mark Spezzano
> 
> 
> _______________________________________________
> Haskell-Cafe mailing list
> Haskell-Cafe at haskell.org
> http://www.haskell.org/mailman/listinfo/haskell-cafe