url encode the access token in authorization header

Author: yasunariw

lib/api_remote.ml

@@ -50,7 +50,7 @@ end
 module Slack : Api.Slack = struct
   let log = Log.from "slack"
 
-  let bearer_token_header access_token = sprintf "Authorization: Bearer %s" access_token
+  let bearer_token_header access_token = sprintf "Authorization: Bearer %s" (Uri.pct_decode access_token)
 
   (** `send_notification ctx msg` notifies `msg.channel` with the payload `msg`;
       uses web API with access token if available, or with webhook otherwise *)