Refactor to not generate Parameters twice

This commit is contained in:
Vidar Holen 2022-07-27 19:47:37 -07:00
parent 3ce310e939
commit f440912279
4 changed files with 25 additions and 27 deletions

View file

@ -898,6 +898,10 @@ isClosingFileOp op =
T_IoDuplicate _ (T_LESSAND _) "-" -> True
_ -> False
getEnableDirectives root =
case root of
T_Annotation _ list _ -> [s | EnableComment s <- list]
_ -> []
return []
runTests = $quickCheckAll