WIP : client request should handle unmapped case
This commit is contained in:
parent
cffbadd1cc
commit
45191a2abd
2 changed files with 26 additions and 18 deletions
|
@ -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
|
||||
|
|
Reference in a new issue