From 081e4f79d4c820c51da3ac0e4240bf284142e24c Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Fri, 3 Apr 2009 16:52:00 +0000
Subject: [PATCH] Added more recognised suffixes to knock off in #USE
 directives

---
 frontends/PreprocessOccam.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/frontends/PreprocessOccam.hs b/frontends/PreprocessOccam.hs
index 041e094..0e4333f 100644
--- 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