File remains locked after crash

[Simon Marlow]

Neil Mitchell wrote:

> Ross Paterson suggested an improved writeFile, which would close the
> file on error:
> 
>>         import Control.Exception
>>         import System.IO
>>
>>         writeFile' :: FilePath -> String -> IO ()
>>         writeFile' f txt = bracket (openFile f WriteMode) hClose
>>                                 (flip hPutStr txt)
> 
> Which might work better.

I've made that change, thanks.

Cheers,
	Simon