2 -- Some types used by the VHDL module.
4 {-# LANGUAGE TemplateHaskell #-}
5 module CLasH.VHDL.VHDLTypes where
8 import qualified Control.Monad.Trans.State as State
9 import qualified Data.Map as Map
11 import qualified Data.Accessor.Template
14 import qualified HscTypes
17 import qualified Language.VHDL.AST as AST
21 -- A description of a port of an entity
22 type Port = (AST.VHDLId, AST.TypeMark)
24 -- A description of a VHDL entity. Contains both the entity itself as well as
25 -- info on how to map a haskell value (argument / result) on to the entity's
27 data Entity = Entity {
28 ent_id :: AST.VHDLId, -- ^ The id of the entity
29 ent_args :: [Port], -- ^ A port for each non-empty function argument
30 ent_res :: Maybe Port, -- ^ The output port
31 ent_dec :: AST.EntityDec -- ^ The complete entity declaration
34 type Architecture = AST.ArchBody
36 -- vim: set ts=8 sw=2 sts=2 expandtab: