Commit 78068512 authored by md9ms's avatar md9ms
Browse files

Some error handling for parseExecutableStanza

parent c07d3f2e
......@@ -205,6 +205,8 @@ parseDescription inp = do let (st:sts) = splitStanzas inp
parseExecutableStanza (("executable",exeName):st) =
do binfo <- foldM parseExeHelp emptyBuildInfo st
return (exeName,binfo)
parseExecutableStanza ((f,_):st) = throwError $ strMsg $
"'Executable' stanza starts with field '" ++ f ++ "'"
parseExeHelp binfo (f@"extra-libs", val) =
do xs <- runP f (parseCommaList word) val
return binfo{extraLibs=xs}
......
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