msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

include - in header

Browse Source
This commit is contained in:
aarne
2005-05-26 13:34:21 +00:00
parent 9a756a3ac1
commit f77c9c86ae
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/Infra/ReadFiles.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable) -- Stability : (stable)
-- Portability : (portable) -- Portability : (portable)
-- --
-- > CVS $Date: 2005/04/21 16:46:08 $ -- > CVS $Date: 2005/05/26 14:34:21 $
-- > CVS $Author: bringert $ -- > CVS $Author: aarne $
-- > CVS $Revision: 1.23 $ -- > CVS $Revision: 1.24 $
-- --
-- Decide what files to read as function of dependencies and time stamps. -- Decide what files to read as function of dependencies and time stamps.
-- --
@@ -236,7 +236,7 @@ importsOfFile =
unComm -- ignore comments before the headed line unComm -- ignore comments before the headed line
where where
term = flip elem ["{",";"] term = flip elem ["{",";"]
spec = flip elem ["of", "open","in",":", "->","=", "(", ")",",","**","union"] spec = flip elem ["of", "open","in",":", "->","=", "-","(", ")",",","**","union"]
unqual ws = case ws of unqual ws = case ws of
"(":q:ws' -> unqual ws' "(":q:ws' -> unqual ws'
w:ws' -> w:unqual ws' w:ws' -> w:unqual ws'