From 8400de520bf24ffe9a9df36eefd24926624aba06 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Sat, 4 Apr 2009 15:34:43 +0000 Subject: [PATCH] Fixed the regular expression on #INCLUDE and #USE to allow any white-space at the end --- frontends/PreprocessOccam.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/frontends/PreprocessOccam.hs b/frontends/PreprocessOccam.hs index d5844ed..cca5fc3 100644 --- a/frontends/PreprocessOccam.hs +++ b/frontends/PreprocessOccam.hs @@ -211,7 +211,7 @@ directives = , (mkRegex "^PRAGMA +(.*)$", handlePragma) ] where - mkRegex' s = mkRegex (s ++ " *(--.*)?$") + mkRegex' s = mkRegex (s ++ "\\s*(--.*)?$") -- | Handle a directive that can be ignored. handleIgnorable :: DirectiveFunc