testsuite/tests/ghc-regress/lib/IO/hGetBuffering001.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

import System.IO

main = 
    sequence (map hIsOpen [stdin, stdout, stderr]) >>= \ opens ->
    print opens >>
    sequence (map hIsClosed [stdin, stdout, stderr]) >>= \ closeds ->
    print closeds >>
    sequence (map hIsReadable [stdin, stdout, stderr]) >>= \ readables ->
    print readables >>
    sequence (map hIsWritable [stdin, stdout, stderr]) >>= \ writables ->
    print writables >>
    sequence (map hIsBlockBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
    print buffereds >>
    sequence (map hIsLineBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
    print buffereds >>
    sequence (map hIsNotBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
    print buffereds
  where
    hIsBlockBuffered h = hGetBuffering h >>= \ b -> return $ case b of { BlockBuffering _ -> True; _ -> False }
    hIsLineBuffered  h = hGetBuffering h >>= \ b -> return $ case b of { LineBuffering -> True; _ -> False }
    hIsNotBuffered   h = hGetBuffering h >>= \ b -> return $ case b of { NoBuffering -> True; _ -> False }