Cleanup, minor updates.

[hs-java.git] / Java / META / Parser.hs

diff --git a/Java/META/Parser.hs b/Java/META/Parser.hs
index 14c14073ecfe469ec67d549cc8ee45057ea9b0b6..f92f49bedf70b725f463b7a9cea0250441f7a015 100644 (file)
--- a/Java/META/Parser.hs
+++ b/Java/META/Parser.hs
@@ -1,6 +1,7 @@
 
 module Java.META.Parser
-  (parseMetaFile) where
+  (parseMeta,
+   parseMetaFile) where
 
 import qualified Data.Map as M
 import Text.Parsec
@@ -59,3 +60,7 @@ parseMetaFile :: FilePath -> IO (Either ParseError META)
 parseMetaFile path = do
   str <- readFile path
   return $ parse pMETA path (str ++ "\n\n")
+
+parseMeta :: String -> Either ParseError META
+parseMeta str = parse pMETA "<META>" (str ++ "\n\n")
+