X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;ds=sidebyside;f=VHDL.hs;h=4ab3be33ec2ba1a9a4647d62703e0efb801c811d;hb=c0fa1614f8bb0126868658fad79b01df447e113a;hp=1c7eba9ea2e848fbca70c620357e1b0e9fb09f85;hpb=9b7d00ad53acfc821840051ef693d87470b4462b;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/VHDL.hs b/VHDL.hs
index 1c7eba9..4ab3be3 100644
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -326,4 +326,8 @@ vhdl_ty_maybe ty =
 
 -- Shortcut
 mkVHDLId :: String -> AST.VHDLId
-mkVHDLId = AST.unsafeVHDLBasicId
+mkVHDLId s = 
+  AST.unsafeVHDLBasicId s'
+  where
+    -- Strip invalid characters.
+    s' = filter (`elem` ['a'..'z'] ++ ['0'..'9'] ++ ['_']) s