s/pct_decode/pct_encode/

Author: yasunariw

lib/api_remote.ml

@@ -67,7 +67,7 @@ end
 module Slack : Api.Slack = struct
   let log = Log.from "slack"
 
-  let bearer_token_header access_token = sprintf "Authorization: Bearer %s" (Uri.pct_decode access_token)
+  let bearer_token_header access_token = sprintf "Authorization: Bearer %s" (Uri.pct_encode 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 *)