remove empty generate loops

This commit is contained in:
Zachary Snow 2020-02-09 23:20:35 -05:00
parent fcaca6c33a
commit 8f4e783fd1
1 changed files with 2 additions and 0 deletions

View File

@ -22,6 +22,8 @@ convert =
)
convertGenItem :: GenItem -> GenItem
convertGenItem (GenFor (True, _, _) _ _ GenNull) = GenNull
convertGenItem (GenFor (True, _, _) _ _ (GenBlock _ [])) = GenNull
convertGenItem (GenFor (True, x, e) a b c) =
GenBlock "" genItems
where