WIP : client request should handle unmapped case

This commit is contained in:
Yehowshua Immanuel 2025-04-11 07:54:47 -04:00
parent cffbadd1cc
commit 45191a2abd
2 changed files with 26 additions and 18 deletions

View file

@ -56,12 +56,16 @@ data BusResponse
| BusWriteResponse WriteResponse
deriving (Bits, Eq, FShow)
data TaggedBusRequest inFlightTransactions =
TaggedBusRequest (MkTagType inFlightTransactions) BusRequest
struct TaggedBusRequest inFlightTransactions =
{ tag :: (MkTagType inFlightTransactions);
busRequest :: BusRequest
}
deriving (Bits, Eq, FShow)
data TaggedBusResponse inFlightTransactions =
TaggedBusResponse (MkTagType inFlightTransactions) BusResponse
struct TaggedBusResponse inFlightTransactions =
{ tag :: (MkTagType inFlightTransactions);
busResponse :: BusResponse
}
deriving (Bits, Eq, FShow)
-- # BusClient.submitRequest