diff options
| author | Adelyn Breedlove <[email protected]> | 2019-02-05 21:42:34 +0000 |
|---|---|---|
| committer | Adelyn Breedlove <[email protected]> | 2019-02-05 21:42:34 +0000 |
| commit | dbb2b74e90c09e15143c880f3d273fc606c899dc (patch) | |
| tree | 11e2cdb06393890ade23438f9b714dbdbe81aa63 /lib/event.ml | |
| parent | Move large_threshold to shard storage, as it isn't needed elsewhere (diff) | |
| parent | Sharder fixes (diff) | |
| download | disml-dbb2b74e90c09e15143c880f3d273fc606c899dc.tar.xz disml-dbb2b74e90c09e15143c880f3d273fc606c899dc.zip | |
Merge branch 'sharder_fixes' into 'master'
Sharder fixes
See merge request Mishio595/disml!17
Diffstat (limited to 'lib/event.ml')
| -rw-r--r-- | lib/event.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/event.ml b/lib/event.ml index 65bb845..2e02249 100644 --- a/lib/event.ml +++ b/lib/event.ml @@ -37,7 +37,7 @@ type t = | WEBHOOK_UPDATE of WebhookUpdate.t
| UNKNOWN of Unknown.t
-let event_of_yojson ~contents t = match t with
+let event_of_yojson ~contents = function
| "READY" -> READY Ready.(deserialize contents)
| "RESUMED" -> RESUMED Resumed.(deserialize contents)
| "CHANNEL_CREATE" -> CHANNEL_CREATE ChannelCreate.(deserialize contents)
@@ -73,7 +73,7 @@ let event_of_yojson ~contents t = match t with | "WEBHOOK_UPDATE" -> WEBHOOK_UPDATE WebhookUpdate.(deserialize contents)
| s -> UNKNOWN Unknown.(deserialize s contents)
-let dispatch ev = match ev with
+let dispatch = function
| READY d -> !Dispatch.ready d
| RESUMED d -> !Dispatch.resumed d
| CHANNEL_CREATE d -> !Dispatch.channel_create d
|