Enhace constants pool handling.

[hs-java.git] / Java / JAR.hs

diff --git a/Java/JAR.hs b/Java/JAR.hs
index 1c92f50e2390a57ebe3c0504c0a396a54969d33a..93128b2e138909551412c369992064f300e5eb97 100644 (file)
--- a/Java/JAR.hs
+++ b/Java/JAR.hs
@@ -31,7 +31,7 @@ readOne jarfile str = do
     files <- Zip.fileNames []
     return $ mapF (NotLoadedJAR jarfile) (buildTree $ filter good files)
   where
-    good name = str `isPrefixOf` name
+    good name = (str `isPrefixOf` name) && (".class" `isSuffixOf` name)
 
 -- | Read entries from JAR file, using MANIFEST.MF if it exists.
 readJAR :: FilePath -> IO [Tree CPEntry]