Show type of binder in listBinding.
[matthijs/master-project/cλash.git] / cλash / CLasH / Translator / Annotations.hs
1 {-# LANGUAGE DeriveDataTypeable #-}
2 module CLasH.Translator.Annotations where
3   
4 import Language.Haskell.TH
5 import Data.Data
6
7 data CLasHAnn = TopEntity | InitState
8   deriving (Show, Data, Typeable)
9   
10 isTopEntity :: CLasHAnn -> Bool
11 isTopEntity TopEntity = True
12 isTopEntity _         = False
13
14 isInitState :: CLasHAnn -> Bool
15 isInitState InitState = True
16 isInitState _         = False