buffering_mode.hs

module Main where

import System.Environment
import System.IO

main :: IO ()
main = do
    { putStrLn =<< getProgName
    ; putStr "stdin : "; print =<< hGetBuffering stdin
    ; putStr "stdout: "; print =<< hGetBuffering stdout
    ; putStr "stderr: "; print =<< hGetBuffering stderr
    }

{- GHCi で起動すると --
>>> main
<interactive>
stdin : NoBuffering
stdout: NoBuffering
stderr: NoBuffering
-- -}

{- runghc で起動すると --
$ runghc buffering_mode.hs
buffering_mode.hs
stdin : LineBuffering
stdout: NoBuffering
stderr: NoBuffering
-- -}

{- コンパイルして実行可能ファイルを起動すると --
$ ghc buffering_mode.hs
$ ./buffering_mode
buffering_mode
stdin : LineBuffering
stdout: LineBuffering
stderr: NoBuffering
-- -}