Source file `current_slack.ml`

1
2
3
4
5
6
7
8
9
10
11
open Current.Syntax

module PC = Current_cache.Output(Post)

type channel = Post.t
let channel uri = uri

let post channel ~key message =
  Current.component "post" |>
  let> message = message in
  PC.set channel key message