client methods presumably finished

bs/BusTypes.bs

@@ -1,5 +1,6 @@
 package BusTypes(
     Bus(..),
+    ServerIdx,
     MkClientTagType,
     BusClient(..), BusServer(..),
     BusRequest(..), BusResponse(..),
@@ -13,6 +14,7 @@ import Vector
 import TagEngine
 
 type MkClientTagType a = (UInt (TLog a))
+type ServerIdx = Integer
 
 data BusError
     = UnMapped
@@ -97,8 +99,9 @@ interface (BusClient :: # -> *) inFlightTransactions =
 --       associated with the original request.
 interface (BusServer :: # -> # -> *) inFlightTransactions numClients =
   consumeRequest  :: ActionValue (MkTagType inFlightTransactions, BusRequest)
-  submitResponse  :: (MkClientTagType numClients, BusResponse, transactionTagType)
-                  -> Action
+  submitResponse  :: ( MkClientTagType numClients,
+                       TaggedBusResponse inFlightTransactions
+                       ) -> Action
 
 interface (Bus :: # -> # -> # -> *) inFlightTransactions numClients numServers =
   clients :: Vector numClients (BusClient inFlightTransactions)