+-- | How is a given signal used in the resulting VHDL?
+data SigUse =
+ SigPort -- | Use as a port
+ | SigInternal -- | Use as an internal signal
+ | SigState -- | Use as an internal state
+ | SigSubState -- | Do not use, state variable is used in a subcircuit
+
+-- | Information on a signal definition
+data SignalInfo = SignalInfo {
+ sigName :: Maybe String,
+ sigUse :: SigUse,
+ sigTy :: Type.Type
+}
+