Stopped lib being stripped from filenames, which helps solve the old occam code that #USEs things that are now modules

This commit is contained in:
Neil Brown 2009-04-18 21:32:45 +00:00
parent 7b41f44788
commit ac7f0dedf8

View File

@ -234,7 +234,7 @@ handleUse m (modName:_)
mangleModName :: String -> String
mangleModName mod
= case splitExtension mod of
(base, ext) | ext `elem` ["inc", "lib", "occ", "tce"]
(base, ext) | ext `elem` ["inc", "occ", "tce"]
-> base
(_, "") -> mod
_ -> mod -- Not sure what the extension might be...