suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Made the unknown preprocessor directive warning show what the unknown directive was

Browse Source
This commit is contained in:
Neil Brown 2009-04-04 15:34:17 +00:00
parent 172e331a9c
commit c2174743e7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
frontends/PreprocessOccam.hs
View File

@ -187,7 +187,8 @@ handleDirective m s x
-- currently we support so few preprocessor directives that this is more -- currently we support so few preprocessor directives that this is more
-- useful. -- useful.
lookup s [] lookup s []
= do warnP m WarnUnknownPreprocessorDirective "Unknown preprocessor directive ignored" = do warnP m WarnUnknownPreprocessorDirective
$ "Unknown preprocessor directive ignored: " ++ show s
return return return return
lookup s ((re, func):ds) lookup s ((re, func):ds)
= case matchRegex re s of = case matchRegex re s of