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

Added more recognised suffixes to knock off in #USE directives

Browse Source
This commit is contained in:
Neil Brown 2009-04-03 16:52:00 +00:00
parent 427938039c
commit 081e4f79d4
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

@ -207,7 +207,7 @@ handleUse m (modName:_)
-- | If a module name has a suffix, strip it -- | If a module name has a suffix, strip it
mangleModName :: String -> String mangleModName :: String -> String
mangleModName mod mangleModName mod
= if ".occ" `isSuffixOf` mod || ".inc" `isSuffixOf` mod = if any (`isSuffixOf` mod) [".inc", ".lib", ".occ", ".tce"]
then (reverse . drop 4 . reverse) mod then (reverse . drop 4 . reverse) mod
else mod else mod