From 81890561a30239fe12bb80791bb35b1031cd3e4f Mon Sep 17 00:00:00 2001
From: Zachary Snow <zach@zachjs.com>
Date: Mon, 20 Jul 2020 18:12:05 -0600
Subject: [PATCH] use simple equality for parameters with integral defaults

---
 src/Convert/Wildcard.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Convert/Wildcard.hs b/src/Convert/Wildcard.hs
index 68b596b..0ffeab0 100644
--- a/src/Convert/Wildcard.hs
+++ b/src/Convert/Wildcard.hs
@@ -25,6 +25,7 @@
 
 module Convert.Wildcard (convert) where
 
+import Control.Monad (when)
 import Data.Bits ((.|.))
 
 import Convert.Scoper
@@ -42,6 +43,8 @@ traverseDeclM :: Decl -> Scoper Number Decl
 traverseDeclM decl = do
     case decl of
         Param Localparam _ x (Number n) -> insertElem x n
+        Param Parameter  _ x (Number n) ->
+            when (numberToInteger n /= Nothing) $ insertElem x n
         _ -> return ()
     let mi = MIPackageItem $ Decl decl
     mi' <- traverseModuleItemM mi