blob: e39ed6538f4e4f9c9490e5cf2e0636b924e3bb1c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
-- !!! check that we don't truncate files if the open fails
import Control.Monad
import System.IO
import System.IO.Error
tmp = "openFile007.out"
main = do
h <- openFile tmp WriteMode
hPutStrLn h "hello, world"
-- second open in write mode better fail, but better not truncate the file
tryIOError (openFile tmp WriteMode) >>= print
hClose h
s <- readFile tmp -- make sure our "hello, world" is still there
putStr s
|
