anchor.diff:          ;   {{error, not_found}, token}  -> ErrorInvalidToken
           ;   {{error, _}=Error, _}        -> Error
           ;   {{ok, Creds}, client}        -> {ok, UpdateClient(State1, Creds)}
  -        ;   {{ok, Creds}, tmp}           -> {ok, UpdateToken(State1, Creds)}
  -        ;   {{ok, Creds}, token}         -> {ok, UpdateToken(State1, Creds)}
  +        ;   {{ok, Creds}, tmp}           -> {ok, UpdateTokenTmp(State1, Creds)}
  +        ;   {{ok, Creds}, token}         -> {ok, UpdateTokenFnl(State1, Creds)}
           end
       end.
   
  
positive.code:         UpdateClient =
              fun (State, Creds) ->
                  State#request_validation_state
                  { creds_client = {some, Creds}
                  }
              end,
          UpdateToken =
              fun (State, Creds) ->
                  State#request_validation_state
                  { creds_token = {some, Creds}
                  }
              end,
          ErrorInvalidClient = {error,{unauthorized,client_credentials_invalid}},
  
negative.code: ) ->
      ValidateSignature =
          fun (#request_validation_state
              { client_creds = {some, ClientCredentials}
              , token_final  = {some, Token}
              }=State) ->
              ClientSharedSecret =
                  oauth1_credentials:get_secret(ClientCredentials),
  