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