doPerform :: (RaftLog l e v) => Raft l e v -> Actions e -> Clients -> IO ()
doPerform vRaft actions clients = do
    append vRaft actions clients
    commit vRaft clients
    doPerform vRaft actions clients
doPerform :: (RaftLog l e v) => Raft l e v -> Actions e -> Clients -> IO ()
doPerform vRaft actions clients = do
    append vRaft actions clients
    commit vRaft clients
    doPerform vRaft actions clients
doPerform vRaft actions clients = do
    append vRaft actions clients
    commit vRaft clients
    doPerform vRaft actions clients