ghc/misc/examples/io/io014/Main.hs

   1 main =
   2     accumulate (map hIsOpen [stdin, stdout, stderr]) >>= \ opens ->
   3     putText opens >>
   4     putChar '\n' >>
   5     accumulate (map hIsClosed [stdin, stdout, stderr]) >>= \ closeds ->
   6     putText closeds >>
   7     putChar '\n' >>
   8     accumulate (map hIsReadable [stdin, stdout, stderr]) >>= \ readables ->
   9     putText readables >>
  10     putChar '\n' >>
  11     accumulate (map hIsWritable [stdin, stdout, stderr]) >>= \ writables ->
  12     putText writables >>
  13     putChar '\n' >>
  14     accumulate (map hIsBlockBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
  15     putText buffereds >>
  16     putChar '\n' >>
  17     accumulate (map hIsLineBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
  18     putText buffereds >>
  19     putChar '\n' >>
  20     accumulate (map hIsNotBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
  21     putText buffereds >>
  22     putChar '\n'