Skip to content

S
sv2v
Commit b58cf5bf by Zachary Snow
Options

remove empty generate conditionals

parent 2bc2eb59
Showing with 1 additions and 0 deletions
src/Convert/Traverse.hs
...@@ -1062,6 +1062,7 @@ traverseNestedModuleItemsM mapper = fullMapper ...@@ -1062,6 +1062,7 @@ traverseNestedModuleItemsM mapper = fullMapper
return $ case moduleItem' of return $ case moduleItem' of
Generate subItems -> GenBlock "" subItems Generate subItems -> GenBlock "" subItems
_ -> GenModuleItem moduleItem' _ -> GenModuleItem moduleItem'
genItemMapper (GenIf _ GenNull GenNull) = return GenNull
genItemMapper (GenIf (Number "1") s _) = return s genItemMapper (GenIf (Number "1") s _) = return s
genItemMapper (GenIf (Number "0") _ s) = return s genItemMapper (GenIf (Number "0") _ s) = return s
genItemMapper (GenBlock "" [item]) = return item genItemMapper (GenBlock "" [item]) = return item
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment