X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=c%CE%BBash%2FCLasH%2FTranslator%2FAnnotations.hs;h=ff2bb4bd0c9d5d38465ca78dd56bc64dc674dba4;hb=4c63601269c7097e2177c547dc36d4edecc1c648;hp=08e7845086be4027970799f20e2032f51b558875;hpb=d30d9fe36698d9d9b5e44099fba9ba090e54064f;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git "a/c\316\273ash/CLasH/Translator/Annotations.hs" "b/c\316\273ash/CLasH/Translator/Annotations.hs"
index 08e7845..ff2bb4b 100644
--- "a/c\316\273ash/CLasH/Translator/Annotations.hs"
+++ "b/c\316\273ash/CLasH/Translator/Annotations.hs"
@@ -4,7 +4,7 @@ module CLasH.Translator.Annotations where
 import Language.Haskell.TH
 import Data.Data
 
-data CLasHAnn = TopEntity | InitState
+data CLasHAnn = TopEntity | InitState | TestInput | TestCycles
   deriving (Show, Data, Typeable)
   
 isTopEntity :: CLasHAnn -> Bool
@@ -13,4 +13,12 @@ isTopEntity _         = False
 
 isInitState :: CLasHAnn -> Bool
 isInitState InitState = True
-isInitState _         = False
\ No newline at end of file
+isInitState _         = False
+
+isTestInput :: CLasHAnn -> Bool
+isTestInput TestInput = True
+isTestInput _         = False
+
+isTestCycles :: CLasHAnn -> Bool
+isTestCycles TestCycles = True
+isTestCycles _          = False
\ No newline at end of file