[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.

MERGE TO STABLE

diff --git a/ghc/utils/hasktags/HaskTags.hs b/ghc/utils/hasktags/HaskTags.hs
index 0ae678f..9df6637 100644 (file)
--- a/ghc/utils/hasktags/HaskTags.hs
+++ b/ghc/utils/hasktags/HaskTags.hs
@@ -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