Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let showChannel (ch: SocketGuildChannel) =
- sprintf "(%i, %s)" ch.Id ch.Name
- let private guilds : Handler = fun client msg _ ->
- let join ch (xs: seq<string>) = String.Join(ch, xs)
- client.Guilds |>
- Seq.map (fun g -> g.Name + ": [" + (Seq.map showChannel g.Channels |> join "; ") + "]")
- |> join ", "
- |> sendMsg client msg
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement