normalize trailing whitespace in escaped identifiers

src/Language/SystemVerilog/Parser/Lex.x

@@ -498,6 +498,11 @@ postProcess stack (Token Dir_end_keywords _ pos : ts) =
     case stack of
         (_ : stack') -> postProcess stack' ts
         [] -> throwError $ show pos ++ ": unmatched end_keywords"
+postProcess stack (Token Id_escaped str pos : ts) =
+    postProcess stack ts >>= return . (t' :)
+    where
+        t' = Token Id_escaped str' pos
+        str' = (++ " ") $ init str
 postProcess [] (t : ts) = do
     ts' <- postProcess [] ts
     return $ t : ts'

test/basic/escaped_identifier.sv

+module mod(
+    input \AFancySignalName[3].Something ,
+    output \AFancySignalName[3].SomethingElse
+);
+endmodule
+
+module top;
+    wire \BFancySignalName.Something = 1;
+    wire \BFancySignalName.SomethingElse ;
+    mod inst_of_fancy_module(
+        .\AFancySignalName[3].Something (\BFancySignalName.Something ),
+        .\AFancySignalName[3].SomethingElse (\BFancySignalName.SomethingElse )
+    );
+endmodule