Fixed the regular expression on #INCLUDE and #USE to allow any white-space at the end

2009-04-04 15:34:43 +00:00 · 2009-04-04 15:34:43 +00:00 · 8400de520b
commit 8400de520b
parent c2174743e7
1 changed files with 1 additions and 1 deletions
--- 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