anchor.diff:      {{halt, 200}, #wm_reqdata{}, term()}.
   access_token_response(#wm_reqdata{} = Request, AccessToken, Type, Expires, 
                         Scope, State) ->
  +    Response = wrq:set_resp_headers([{"Cache-Control", "no-store"},
  +                                     {"Pragma", "no-cache"}],
  +                                    Request),
       {{halt, 200}, wrq:set_resp_body("{\"access_token\":\"" ++ 
                                           binary_to_list(AccessToken) ++ 
                                           "\",\"token_type\":\"" ++ 
  
positive.code:     {{halt, 200}, #wm_reqdata{}, term()}.
  access_refresh_token_response(#wm_reqdata{} = Request, AccessToken, Type, 
                                Expires, RefreshToken, Scope, State) ->
      {{halt, 200}, wrq:set_resp_body("{\"access_token\":\"" ++ 
                                          binary_to_list(AccessToken) ++ 
                                          "\",\"token_type\":\"" ++ 
  
negative.code:                                         ",\"refresh_token\":\"" ++ 
                                          binary_to_list(RefreshToken) ++
                                          "\",\"scope\":\"" ++
                                          scope_string(Scope) ++"\"}", Response), 
       State}.
  
  
  