From c2174743e7e9680fa2ce34e390329b9e30c510ad Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sat, 4 Apr 2009 15:34:17 +0000
Subject: [PATCH] Made the unknown preprocessor directive warning show what the
 unknown directive was

---
 frontends/PreprocessOccam.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/frontends/PreprocessOccam.hs b/frontends/PreprocessOccam.hs
index 2715934..d5844ed 100644
--- 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