From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Thu, 19 Feb 2009 14:13:45 +0000 (+0100)
Subject: Also allow uppercase letters and a period in VHDL ids.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=6615a04d5d42a0e1875bd1a281372509ca64e641;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Also allow uppercase letters and a period in VHDL ids.
---

diff --git a/VHDL.hs b/VHDL.hs
index 4ab3be3..37bcd74 100644
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -330,4 +330,4 @@ mkVHDLId s =
   AST.unsafeVHDLBasicId s'
   where
     -- Strip invalid characters.
-    s' = filter (`elem` ['a'..'z'] ++ ['0'..'9'] ++ ['_']) s
+    s' = filter (`elem` ['A'..'Z'] ++ ['a'..'z'] ++ ['0'..'9'] ++ "_.") s