filter out empty port connections

This commit is contained in:
Zachary Snow 2021-06-21 15:49:13 -04:00
parent dbbf71c65a
commit 7843ff6da3
1 changed files with 2 additions and 1 deletions

View File

@ -64,7 +64,8 @@ mapInstance parts (Instance m paramBindings x rs portBindings) =
paramBindings' = map checkParam $
resolveBindings (msg "parameter overrides") paramNames paramBindings
portBindings' = resolveBindings (msg "port connections") portNames $
portBindings' = filter ((/= Nil) . snd) $
resolveBindings (msg "port connections") portNames $
concatMap expandStar portBindings
expandStar :: PortBinding -> [PortBinding]