diff --git a/src/Convert/Struct.hs b/src/Convert/Struct.hs
index f26c139..73f3c05 100644
--- a/src/Convert/Struct.hs
+++ b/src/Convert/Struct.hs
@@ -159,7 +159,9 @@ collectTFArgsM _ = return ()
 traverseDeclM :: Decl -> State Types Decl
 traverseDeclM origDecl = do
     case origDecl of
-        Variable _ t x _ _ -> modify $ Map.insert x t
+        Variable _ t x a _ -> do
+            let (tf, rs) = typeRanges t
+            modify $ Map.insert x (tf $ a ++ rs)
         Parameter  t x _   -> modify $ Map.insert x t
         Localparam t x _   -> modify $ Map.insert x t
     return origDecl