Skip to content

S
sv2v
Commit 7843ff6d by Zachary Snow
Options

filter out empty port connections

parent dbbf71c6
Showing with 2 additions and 1 deletions
src/Convert/ResolveBindings.hs
...@@ -64,7 +64,8 @@ mapInstance parts (Instance m paramBindings x rs portBindings) = ...@@ -64,7 +64,8 @@ mapInstance parts (Instance m paramBindings x rs portBindings) =
paramBindings' = map checkParam $ paramBindings' = map checkParam $
resolveBindings (msg "parameter overrides") paramNames paramBindings resolveBindings (msg "parameter overrides") paramNames paramBindings
portBindings' = resolveBindings (msg "port connections") portNames $ portBindings' = filter ((/= Nil) . snd) $
resolveBindings (msg "port connections") portNames $
concatMap expandStar portBindings concatMap expandStar portBindings
expandStar :: PortBinding -> [PortBinding] expandStar :: PortBinding -> [PortBinding]
......
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