X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=c%CE%BBash%2FCLasH%2FTranslator%2FAnnotations.hs;fp=c%CE%BBash%2FCLasH%2FTranslator%2FAnnotations.hs;h=0000000000000000000000000000000000000000;hb=04f836932ad17dd557af0ba388a12d2b74c1e7d7;hp=2c875505c4b4091f2019d4f9af66fa3713599853;hpb=75978cf28a619d14ae27ea2bb4a53246b6a0bcd8;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" deleted file mode 100644 index 2c87550..0000000 --- "a/c\316\273ash/CLasH/Translator/Annotations.hs" +++ /dev/null @@ -1,24 +0,0 @@ -{-# LANGUAGE DeriveDataTypeable #-} -module CLasH.Translator.Annotations where - -import qualified Language.Haskell.TH as TH -import Data.Data - -data CLasHAnn = TopEntity | InitState TH.Name | TestInput | TestCycles - deriving (Show, Data, Typeable) - -isTopEntity :: CLasHAnn -> Bool -isTopEntity TopEntity = True -isTopEntity _ = False - -isInitState :: CLasHAnn -> Bool -isInitState (InitState _) = True -isInitState _ = False - -isTestInput :: CLasHAnn -> Bool -isTestInput TestInput = True -isTestInput _ = False - -isTestCycles :: CLasHAnn -> Bool -isTestCycles TestCycles = True -isTestCycles _ = False \ No newline at end of file