anchor.diff:      Fails = InCheck#health_check.callback_failures + 1,
       if
           Fails == InCheck#health_check.max_callback_failures ->
  -            lager:error("health check callback for ~p failed too many times, disabling.", [Service]),
  -            {down, suspend, InCheck#health_check{checking_pid = undefined, callback_failures = Fails}};
  +            lager:error("health check callback for ~p failed too "
  +                        "many times, disabling.", [Service]),
  +            {down, suspend, InCheck#health_check{checking_pid = undefined,
  +                                                 callback_failures = Fails}};
           Fails < InCheck#health_check.max_callback_failures ->
               #health_check{health_failures = N, check_interval = Inter} = InCheck,
               Tref = next_health_tref(N, Inter, Service), 
  
positive.code: handle_check_msg(_Msg, undefined, State) ->
      State;
  handle_check_msg(_Msg, _ServiceId, #state{status = down} = State) ->
      % most likely a late message
      State;
  handle_check_msg(Msg, ServiceId, State) ->
      case orddict:find(ServiceId, State#state.health_checks) of
  
negative.code: health_fsm(checking, remove, _Service, InCheck) ->
      {remove, checking, InCheck};
  
  health_fsm(checking, {'EXIT', Pid, Cause}, Service, #health_check{checking_pid = Pid} = InCheck)
    when Cause == normal; Cause == false ->
      %% correct exits of checking pid
      #health_check{health_failures = HPFails, max_health_failures = HPMaxFails} = InCheck,
      {Reply, HPFails1} = handle_fsm_exit(Cause, HPFails, HPMaxFails),
      Tref = next_health_tref(HPFails1, InCheck#health_check.check_interval, Service),
  