mkResult :: (RaftLog l e v) => Bool -> RaftContext l e v -> MemberResult
mkResult success raft = MemberResult {
    memberActionSuccess = success,
    memberLeader = clusterLeader $ clusterConfiguration $ raftStateConfiguration $ raftState raft,
    memberCurrentTerm = raftCurrentTerm raft,
    memberLastAppended = lastAppendedTime $ raftLog raft,
    memberLastCommitted = lastCommittedTime $ raftLog raft
}
mkResult :: (RaftLog l e v) => Bool -> RaftContext l e v -> MemberResult
mkResult success raft = MemberResult {
    memberActionSuccess = success,
    memberLeader = clusterLeader $ clusterConfiguration $ raftStateConfiguration $ raftState raft,
    memberCurrentTerm = raftCurrentTerm raft,
    memberLastAppended = lastAppendedTime $ raftLog raft,
    memberLastCommitted = lastCommittedTime $ raftLog raft
}
mkResult success raft = MemberResult {
    memberActionSuccess = success,
    memberLeader = clusterLeader $ clusterConfiguration $ raftStateConfiguration $ raftState raft,
    memberCurrentTerm = raftCurrentTerm raft,
    memberLastAppended = lastAppendedTime $ raftLog raft,
    memberLastCommitted = lastCommittedTime $ raftLog raft
}