zaxis <[email protected]> writes: > hitSSQ :: String -> [Int] -> IO () > hitSSQ no hitNum = do > let newNum = unwords $ [no] ++ map (\n -> show n) hitNum > hitNums <- fmap lines $ readFile "test.txt" > writeFile "test.txt" $ unlines $ hitNums ++ [newNum] > > *** Exception: test.txt: openFile: resource busy (file is locked)
You're currently reading the file; finish reading it and close it before you write over it (or else use WriteRead mode or whatever it's called and call openFile explicitly rather than using readFile and writeFile). -- Ivan Lazar Miljenovic [email protected] IvanMiljenovic.wordpress.com _______________________________________________ Haskell-Cafe mailing list [email protected] http://www.haskell.org/mailman/listinfo/haskell-cafe
