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