From 9036bbabe48fe1894ec67ef9f5ed18598177539d Mon Sep 17 00:00:00 2001
From: Zachary Snow <zach@zachjs.com>
Date: Sun, 9 Feb 2020 19:07:12 -0500
Subject: [PATCH] cover struct width $bits edge case

---
 src/Convert/DimensionQuery.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Convert/DimensionQuery.hs b/src/Convert/DimensionQuery.hs
index d051668..075d262 100644
--- a/src/Convert/DimensionQuery.hs
+++ b/src/Convert/DimensionQuery.hs
@@ -114,6 +114,11 @@ convertBits (Left t) =
         IntegerVector _ _ rs -> dimensionsSize rs
         Implicit        _ rs -> dimensionsSize rs
         Net           _ _ rs -> dimensionsSize rs
+        Struct   _ fields rs ->
+            BinOp Mul
+                (dimensionsSize rs)
+                (foldl (BinOp Add) (Number "0") fieldSizes)
+            where fieldSizes = map (DimsFn FnBits . Left . fst) fields
         UnpackedType  t'  rs ->
             BinOp Mul
                 (dimensionsSize rs)