blob: 78c7b7eeb37738007203964ac0bbc55f02350b86 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
-- !!! Flushing
module Main(main) where
import Control.Monad
import System.Directory ( removeFile, doesFileExist )
import System.IO
main = do
hFlush stdin `catch` \ _ -> putStrLn "No can do - flushing read-only handles isn't legal"
putStr "Hello,"
hFlush stdout
putStr "Hello - "
hFlush stderr
hdl <- openFile "hFlush001.hs" ReadMode
hFlush hdl `catch` \ _ -> putStrLn "No can do - flushing read-only handles isn't legal"
hClose hdl
remove
hdl <- openFile "hFlush001.out" WriteMode
hFlush hdl
hClose hdl
remove
hdl <- openFile "hFlush001.out" AppendMode
hFlush hdl
hClose hdl
remove
hdl <- openFile "hFlush001.out" ReadWriteMode
hFlush hdl
hClose hdl
where remove = do
f <- doesFileExist "hFlush001.out"
when f (removeFile "hFlush001.out")
|
