anchor.diff:      %% Attempt to connect nodes that are not connected.
       AttemptedNodes = maybe_connect(ToConnectNodes, SeenNodes),
   
  -    %% Add random jitter.
  -    Jitter = rand_compat:uniform(?REFRESH_INTERVAL),
  -    timer:send_after(?REFRESH_INTERVAL + Jitter, ?REFRESH_MESSAGE),
  +    shedule_membership_refresh(),
   
       {noreply, State#state{attempted_nodes=AttemptedNodes}};
  -handle_info(?NODES_MESSAGE, State) ->
  -    %% Do nothing right now.
  -    timer:send_after(?NODES_INTERVAL, ?NODES_MESSAGE),
  -    {noreply, State};
   handle_info(?ARTIFACT_MESSAGE, State) ->
       %% Get bucket name.
       BucketName = bucket_name(),
  
positive.code: 
  -include("lasp.hrl").
  
  -define(REFRESH_INTERVAL, 2000).
  -define(REFRESH_MESSAGE,  refresh).
  
  -define(NODES_INTERVAL, 20000).
  -define(NODES_MESSAGE,  nodes).
  
  -define(BUILD_GRAPH_INTERVAL, 120000).
  -define(BUILD_GRAPH_MESSAGE,  build_graph).
  
  -define(ARTIFACT_INTERVAL, 1000).
  -define(ARTIFACT_MESSAGE,  artifact).
  
  %% State record.
  
negative.code:                     ok
              end,
  
              %% Only construct the graph and attempt to repair the graph
              %% from the designated server node.
              case partisan_config:get(tag, client) of
                  server ->
                      schedule_build_graph();
                  client ->
                      ok
              end,
  
              %% All nodes should upload artifacts.
              schedule_artifact_upload(),
  
              %% All nodes should attempt to refresh the membership.
              schedule_membership_refresh(),
      end,
      {ok, #state{is_connected=false,
                  was_connected=false,
  