flatten generate blocks with one item

This commit is contained in:
Zachary Snow 2020-01-31 19:43:34 -05:00
parent dd0eb5981d
commit 6e4a19d00b
1 changed files with 1 additions and 0 deletions

View File

@ -141,6 +141,7 @@ traverseModuleItemsM mapper (Part attrs extern kw lifetime name ports items) = d
_ -> GenModuleItem moduleItem'
genItemMapper (GenIf (Number "1") s _) = return s
genItemMapper (GenIf (Number "0") _ s) = return s
genItemMapper (GenBlock "" [item]) = return item
genItemMapper (GenBlock _ []) = return GenNull
genItemMapper other = return other
breakGenerate :: ModuleItem -> [ModuleItem]