X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=blobdiff_plain;f=Java%2FJAR.hs;h=6188dd79610c7863506f50111ac49e550186c2de;hp=93128b2e138909551412c369992064f300e5eb97;hb=a6ce6178b45922c228b042c24368d65ec2d6f373;hpb=33dc6f7bdcdc770332723ea519df4c923eb3d933

diff --git a/Java/JAR.hs b/Java/JAR.hs
index 93128b2..6188dd7 100644
--- a/Java/JAR.hs
+++ b/Java/JAR.hs
@@ -46,6 +46,7 @@ readJAR jarfile = do
                       return (Just forest)
   case r of
     Nothing -> readAllJAR jarfile
+    Just [] -> readAllJAR jarfile
     Just f  -> return f
 
 -- | Add given JAR file to ClassPath