From 6e4a19d00ba58568debf2ad5af9ca9b9f750a986 Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Fri, 31 Jan 2020 19:43:34 -0500 Subject: [PATCH] flatten generate blocks with one item --- src/Convert/Traverse.hs | 1 + 1 file changed, 1 insertion(+) 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]