suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Neil Brown 2009-04-04 15:34:43 +00:00
parent c2174743e7
commit 8400de520b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
frontends/PreprocessOccam.hs
View File

@ -211,7 +211,7 @@ directives =
, (mkRegex "^PRAGMA +(.*)$", handlePragma) , (mkRegex "^PRAGMA +(.*)$", handlePragma)
] ]
where where
mkRegex' s = mkRegex (s ++ " *(--.*)?$") mkRegex' s = mkRegex (s ++ "\\s*(--.*)?$")
-- | Handle a directive that can be ignored. -- | Handle a directive that can be ignored.
handleIgnorable :: DirectiveFunc handleIgnorable :: DirectiveFunc