From fc878fc7dbe454c3c3b0e4c4541d08e7ae8d8a67 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 19 Jul 2004 11:51:16 +0000
Subject: [PATCH] [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
---
 ghc/utils/hasktags/HaskTags.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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