1 {-# LANGUAGE DeriveDataTypeable #-}
2 module CLasH.Translator.Annotations where
4 import Language.Haskell.TH
7 data CLasHAnn = TopEntity | InitState
8 deriving (Show, Data, Typeable)
10 isTopEntity :: CLasHAnn -> Bool
11 isTopEntity TopEntity = True
14 isInitState :: CLasHAnn -> Bool
15 isInitState InitState = True