From: simonmar <unknown>
Date: Mon, 19 Jul 2004 11:51:16 +0000 (+0000)
Subject: [project @ 2004-07-19 11:51:16 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1778
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=fc878fc7dbe454c3c3b0e4c4541d08e7ae8d8a67

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