projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-07-19 11:51:16 by simonmar]
[ghc-hetmet.git]
/
ghc
/
utils
/
hasktags
/
HaskTags.hs
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
filenames <- getArgs
filedata <- mapM findthings filenames
ctagsfile <- openFile "tags" WriteMode
- etagsfile <- openFile "TAGS" WriteMode
writectagsfile ctagsfile filedata
writectagsfile ctagsfile filedata
- writeetagsfile etagsfile filedata
hClose ctagsfile
hClose ctagsfile
+ etagsfile <- openFile "TAGS" WriteMode
+ writeetagsfile etagsfile filedata
hClose etagsfile
type FileName = String
hClose etagsfile
type FileName = String