Added more recognised suffixes to knock off in #USE directives

2009-04-03 16:52:00 +00:00 · 2009-04-03 16:52:00 +00:00 · 081e4f79d4
commit 081e4f79d4
parent 427938039c
1 changed files with 1 additions and 1 deletions
--- a/frontends/PreprocessOccam.hs
+++ b/frontends/PreprocessOccam.hs
@ -207,7 +207,7 @@ handleUse m (modName:_)
    -- | If a module name has a suffix, strip it
    mangleModName :: String -> String
    mangleModName mod
-        = if ".occ" `isSuffixOf` mod || ".inc" `isSuffixOf` mod
+        = if any (`isSuffixOf` mod) [".inc", ".lib", ".occ", ".tce"]
            then (reverse . drop 4 . reverse) mod
            else mod