Fixed parser errors not being excluded by -e

This commit is contained in:
Vidar Holen
2015-03-01 13:44:57 -08:00
parent 2573332d77
commit 955ad60823
3 changed files with 10 additions and 5 deletions

View File

@@ -366,7 +366,7 @@ verifyNotTree :: (Parameters -> Token -> [Note]) -> String -> Bool
verifyNotTree f s = checkTree f s == Just False
checkNode f = checkTree (runNodeAnalysis f)
checkTree f s = case parseShell "-" s of
checkTree f s = case parseShell defaultAnalysisOptions "-" s of
(ParseResult (Just (t, m)) _) -> Just . not . null $ runList defaultAnalysisOptions t [f]
_ -> Nothing