filter out empty port connections

7843ff6d · Zachary Snow · dbbf71c6 · 7843ff6d
Commit 7843ff6d authored Jun 21, 2021 by Zachary Snow
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletions

src/Convert/ResolveBindings.hs
+2 -1

No files found.
--- a/src/Convert/ResolveBindings.hs
+++ b/src/Convert/ResolveBindings.hs
@@ -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]