remove extra space after signed in scalar types

src/Language/SystemVerilog/AST/Type.hs

@@ -57,6 +57,7 @@ instance Show Type where
     show (Alias         xx    rs) = printf "%s%s" xx (showRanges rs)
     show (PSAlias ps    xx    rs) = printf "%s::%s%s" ps xx (showRanges rs)
     show (CSAlias ps pm xx    rs) = printf "%s#%s::%s%s" ps (showParams pm) xx (showRanges rs)
+    show (Implicit         sg []) = show sg
     show (Implicit         sg rs) = printf "%s%s"             (showPad       sg) (dropWhile (== ' ') $ showRanges rs)
     show (IntegerVector kw sg rs) = printf "%s%s%s" (show kw) (showPadBefore sg) (showRanges rs)
     show (IntegerAtom   kw sg   ) = printf "%s%s"   (show kw) (showPadBefore sg)

test/core/interface_input_type.sv.pat

@@ -0,0 +1,2 @@
+reject wire signed  x;
+affirm wire signed x;

test/core/param_typeof.sv.pat

@@ -0,0 +1,2 @@
+reject parameter signed[15:0] X = 0;
+affirm parameter signed [15:0] X = 0;

test/core/unbased_unsized.sv.pat

@@ -1 +1,3 @@
 affirm ? (* foo *) (* bar *)
+reject input wire  [W + 1:1] b;
+affirm input wire [W + 1:1] b;