Commit 6749917c authored by md9ms's avatar md9ms
Browse files

Remove the mainModule parser (not needed anymore)

parent 78068512
......@@ -272,13 +272,6 @@ splitStanzas = map merge . groupStanzas . filter validLine . lines
-- |parse a module name
moduleName = many (alphaNum <|> oneOf "_'.") <?> "moduleName"
mainModule = do filename <- word
skipMany parseWhite
char ':'
skipMany parseWhite
modname <- moduleName
return (filename,modname)
-- |FIX: must learn to escape whitespace
parseFilePath :: GenParser Char st FilePath
parseFilePath = liftM concat (many1 (
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment