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

2009-04-04 15:34:17 +00:00 · 2009-04-04 15:34:17 +00:00 · c2174743e7
commit c2174743e7
parent 172e331a9c
1 changed files with 2 additions and 1 deletions
--- a/frontends/PreprocessOccam.hs
+++ b/frontends/PreprocessOccam.hs
@ -187,7 +187,8 @@ handleDirective m s x
    -- currently we support so few preprocessor directives that this is more
    -- useful.
    lookup s []
-        =  do warnP m WarnUnknownPreprocessorDirective "Unknown preprocessor directive ignored"
+        =  do warnP m WarnUnknownPreprocessorDirective
+                $ "Unknown preprocessor directive ignored: " ++ show s
              return return
    lookup s ((re, func):ds)
        = case matchRegex re s of