projects
/
hs-java.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
module Java.META.Parser
- (parseMetaFile) where
+ (parseMeta,
+ parseMetaFile) where
import qualified Data.Map as M
import Text.Parsec
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")
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")
+