main = do --let inputfile = "input.txt" let inputtext = "testit" let outputfile = "output.txt" writeFile outputfile "" handle2 <- openFileEx outputfile (BinaryMode WriteMode) hPutStr handle2 (inputtext ++ " extra")

handle3 <- openFileEx outputfile (BinaryMode ReadMode) inputtext2 <- hGetContents handle3 handle4 <- openFileEx outputfile (BinaryMode WriteMode) hPutStr handle4 (inputtext ++ " extra2")

Here's my guess: You open outputfile four times but never close it. Markus