blob: 7849afed2349bdc1d8df19685ac41b93bc432dcd (
plain) (
blame)
1
2
3
4
5
6
7
|
module Make(Http : S.Http) = struct
let reply (message:Message_t.t) str =
let msg = `Assoc [
("content", `String str)
] in
Http.create_message (string_of_int (message.channel_id)) (msg)
end
|