From 66ab612494da360ce8d56c4bd15d2fced80015b3 Mon Sep 17 00:00:00 2001
From: Bernhard Urban <lewurm@gmail.com>
Date: Sat, 19 May 2012 21:20:53 +0200
Subject: [PATCH] jar: enable getter for mainclass property

---
 Java/JAR.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Java/JAR.hs b/Java/JAR.hs
index 6188dd7..a5614da 100644
--- a/Java/JAR.hs
+++ b/Java/JAR.hs
@@ -2,6 +2,7 @@
 module Java.JAR 
   (readManifest,
    readJAR,
+   readMainClass,
    addJAR
   ) where
 
@@ -33,6 +34,15 @@ readOne jarfile str = do
   where
     good name = (str `isPrefixOf` name) && (".class" `isSuffixOf` name)
 
+-- | Read MainClass Entry of a MANIFEST.MF file
+readMainClass :: FilePath -> IO (Maybe String)
+readMainClass jarfile = do
+  Zip.withArchive [] jarfile $ do
+    m <- readManifest
+    case m of
+      Nothing -> return Nothing
+      Just mf -> return $ mainClass mf
+
 -- | Read entries from JAR file, using MANIFEST.MF if it exists.
 readJAR :: FilePath -> IO [Tree CPEntry]
 readJAR jarfile = do
-- 
2.25.1