diff --git a/src/Convert/Traverse.hs b/src/Convert/Traverse.hs index a3c3699..180f7a2 100644 --- a/src/Convert/Traverse.hs +++ b/src/Convert/Traverse.hs @@ -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]