blob: 34f24eab862f51d3b8914fb91eb28d1e0764487c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
open Async
open Disml
let main () =
let token = match Sys.getenv "DISCORD_TOKEN" with
| Some s -> s
| None -> failwith "No token"
in
Sharder.start token
|> ignore
let _ =
Scheduler.go_main ~main:(main) ()
|