X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=c%CE%BBash%2FCLasH%2FTranslator%2FAnnotations.hs;h=2c875505c4b4091f2019d4f9af66fa3713599853;hb=f3951a1376fc7d7f8addbe9e9fed071320502100;hp=6176438c1e7349f664324220f127b344d36c293e;hpb=a54863feb7304aa6a843efc15d29f017c45407f4;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 6176438..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 Name | TestInput | TestCycles +data CLasHAnn = TopEntity | InitState TH.Name | TestInput | TestCycles deriving (Show, Data, Typeable) isTopEntity :: CLasHAnn -> Bool