X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Fhasktags%2FHaskTags.hs;h=9df6637031a4e588de158879c4fba838e613d0e4;hb=fc878fc7dbe454c3c3b0e4c4541d08e7ae8d8a67;hp=0ae678fe437c6f13bffd680e04b65c69e32a293f;hpb=3ff555368ff055bd07eef9131c9ef96ea2346106;p=ghc-hetmet.git

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