skeletons of Bus module slowly forming

This commit is contained in:
Yehowshua Immanuel 2025-04-08 23:04:30 -04:00
parent da761f6e4e
commit fe2fa21fcc
2 changed files with 17 additions and 5 deletions

View file

@ -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