luke
/
sv2v
mirror of https://github.com/zachjs/sv2v.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove empty initial blocks (resolves #89)

This commit is contained in:
Zachary Snow 2020-06-02 08:29:12 -04:00
parent 478f0d19d2
commit ec760964c7
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Convert/Traverse.hs
View File

@ -1052,6 +1052,7 @@ traverseNestedModuleItemsM mapper = fullMapper
mapM fullGenItemMapper genItems' >>= mapper . Generate mapM fullGenItemMapper genItems' >>= mapper . Generate
fullMapper (MIAttr attr mi) = fullMapper (MIAttr attr mi) =
fullMapper mi >>= mapper . MIAttr attr fullMapper mi >>= mapper . MIAttr attr
fullMapper (Initial Null) = return $ Generate []
fullMapper other = mapper other fullMapper other = mapper other
fullGenItemMapper = traverseNestedGenItemsM genItemMapper fullGenItemMapper = traverseNestedGenItemsM genItemMapper
genItemMapper (GenModuleItem moduleItem) = do genItemMapper (GenModuleItem moduleItem) = do