X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Constants.hs;h=cf77025771f11cc7ce5730eb49192ec5a33f71bc;hb=597f1b6823417f2c4cc54549f2a9d1b9f131893c;hp=61889af964ed1a8c2c9e72cd0e094548515e56a9;hpb=6d32dd45d7ec39de57175068b6f7dafac9d52c0d;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Constants.hs b/Constants.hs
index 61889af..cf77025 100644
--- a/Constants.hs
+++ b/Constants.hs
@@ -161,6 +161,10 @@ copyId = AST.unsafeVHDLBasicId "copy"
 -- VHDL type marks
 ------------------
 
+-- | The Bit type mark
+bitTM :: AST.TypeMark
+bitTM = AST.unsafeVHDLBasicId "Bit"
+
 -- | Stardard logic type mark
 std_logicTM :: AST.TypeMark
 std_logicTM = AST.unsafeVHDLBasicId "std_logic"
@@ -179,4 +183,4 @@ naturalTM = AST.unsafeVHDLBasicId "natural"
 
 -- | integer TypeMark
 integerTM :: AST.TypeMark
-integerTM = AST.unsafeVHDLBasicId "integer"
\ No newline at end of file
+integerTM = AST.unsafeVHDLBasicId "integer"