vvalue
serviceDriver :: (VersionedProtocol (ServiceProtocol m), DirectDeserialise (SignKeyKES (KES StandardCrypto)), DirectSerialise (SignKeyKES (KES StandardCrypto)), MonadThrow m, MonadSTM m, MonadMVar m, MonadFail m, MonadST m)=> RawBearer m-> Tracer m ServiceDriverTrace-> Driver (ServiceProtocol m) pr () m