ghc/tests/lib/IOExts/echo001.stdout

   1 False
   2 MODULE MAIN(MAIN) WHERE
   3
   4 IMPORT IO
   5 IMPORT IOEXTS
   6 IMPORT CHAR
   7
   8 MAIN = DO
   9   IST <- HISTERMINALDEVICE STDIN
  10   FLG <- IF NOT IST THEN RETURN FALSE ELSE HGETECHO STDIN
  11   PRINT FLG
  12   IF NOT IST THEN HSETECHO STDIN FALSE ELSE RETURN ()
  13   HSETBUFFERING STDIN NOBUFFERING
  14   INTERACT (MAP TOUPPER)
  15