From 1351c101337e46a89c066f0830ed6f06fc96cf7a Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Mon, 8 Aug 2005 08:01:10 +0000
Subject: "Committed_by_peb"

---
 src/haddock/haddock-check.perl | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'src/haddock')

diff --git a/src/haddock/haddock-check.perl b/src/haddock/haddock-check.perl
index a16eac9ef..93647bac7 100644
--- a/src/haddock/haddock-check.perl
+++ b/src/haddock/haddock-check.perl
@@ -41,10 +41,11 @@ sub check_headerline {
 if ($#ARGV >= 0) {
   @FILES = @ARGV;
 } else {
-  @dirs = qw{. api canonical cf cfgm compile for-ghc-nofud
-	     grammar infra notrace parsers shell
-	     source speech translate useGrammar util visualization
-	     GF GF/* GF/*/* GF/*/*/*};
+#   @dirs = qw{. api canonical cf cfgm compile for-ghc-nofud
+# 	     grammar infra notrace parsers shell
+# 	     source speech translate useGrammar util visualization
+# 	     GF GF/* GF/*/* GF/*/*/*};
+  @dirs = qw{GF GF/* GF/*/* GF/*/*/*};
   @FILES = grep(!/\/(Par|Lex)(GF|GFC|CFG)\.hs$/,
 		glob "{".join(",",@dirs)."}/*.hs");
 }
@@ -70,7 +71,9 @@ for $file (@FILES) {
   # the module header
   $hdr_module = $module = "";
 
-  s/^ (--+ \s* \n) +//sx;
+  s/^ \{-\# \s+ OPTIONS \s+ -cpp \s+ \#-\} //sx;  # removing ghc options (cpp)
+  s/^ \s+ //sx;  # removing initial whitespace
+  s/^ (--+ \s* \n) +//sx;  # removing initial comment lines
   unless (s/^ -- \s \| \s* \n//sx) {
     push @ERR, "Incorrect module header";
   } else {
-- 
cgit v1.2.3