skeletons of Bus module slowly forming
This commit is contained in:
parent
da761f6e4e
commit
fe2fa21fcc
2 changed files with 17 additions and 5 deletions
|
@ -1,4 +1,5 @@
|
|||
package BusTypes(
|
||||
Bus(..),
|
||||
BusClient(..), BusServer(..),
|
||||
BusRequest(..), BusResponse(..),
|
||||
ReadRequest(..), ReadResponse(..), WriteRequest(..), WriteResponse(..),
|
||||
|
@ -87,10 +88,6 @@ interface (BusServer :: * -> * -> *) transactionTagType clientTagType =
|
|||
dequeueResponse :: ActionValue (clientTagType, BusResponse, transactionTagType)
|
||||
peekClientTagDestination :: clientTagTye
|
||||
|
||||
interface (Bus :: # -> # -> * -> * -> *) numClients numServers transactionTagType clientTagType =
|
||||
clients :: Vector numClients (BusClient transactionTagType)
|
||||
servers :: Vector numServers (BusServer transactionTagType clientTagType)
|
||||
|
||||
type Token = UInt 5
|
||||
type Numeric = 5
|
||||
|
||||
|
|
Reference in a new issue