X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=c%CE%BBash%2FCLasH%2FTranslator%2FAnnotations.hs;h=2c875505c4b4091f2019d4f9af66fa3713599853;hb=f3951a1376fc7d7f8addbe9e9fed071320502100;hp=ff2bb4bd0c9d5d38465ca78dd56bc64dc674dba4;hpb=4b87be0b9d499155084a6240b016afd57b4b30cd;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 ff2bb4b..2c87550 100644
--- "a/c\316\273ash/CLasH/Translator/Annotations.hs"
+++ "b/c\316\273ash/CLasH/Translator/Annotations.hs"
@@ -1,10 +1,10 @@
 {-# LANGUAGE DeriveDataTypeable #-}
 module CLasH.Translator.Annotations where
   
-import Language.Haskell.TH
+import qualified Language.Haskell.TH as TH
 import Data.Data
 
-data CLasHAnn = TopEntity | InitState | TestInput | TestCycles
+data CLasHAnn = TopEntity | InitState TH.Name | TestInput | TestCycles
   deriving (Show, Data, Typeable)
   
 isTopEntity :: CLasHAnn -> Bool
@@ -12,8 +12,8 @@ isTopEntity TopEntity = True
 isTopEntity _         = False
 
 isInitState :: CLasHAnn -> Bool
-isInitState InitState = True
-isInitState _         = False
+isInitState (InitState _) = True
+isInitState _             = False
 
 isTestInput :: CLasHAnn -> Bool
 isTestInput TestInput = True