Commit fc878fc7 authored by simonmar's avatar simonmar
Browse files

[project @ 2004-07-19 11:51:16 by simonmar]

do the file writes one after another, so if the underlying file system
happens to be case-insensitive we won't run into a file locking issue.

parent c92ad297
......@@ -24,10 +24,10 @@ main = do
filenames <- getArgs
filedata <- mapM findthings filenames
ctagsfile <- openFile "tags" WriteMode
etagsfile <- openFile "TAGS" WriteMode
writectagsfile ctagsfile filedata
writeetagsfile etagsfile filedata
hClose ctagsfile
etagsfile <- openFile "TAGS" WriteMode
writeetagsfile etagsfile filedata
hClose etagsfile
type FileName = String
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment