diff options
| author | Mishio595 <[email protected]> | 2018-11-25 16:02:37 -0700 |
|---|---|---|
| committer | Mishio595 <[email protected]> | 2018-11-25 16:02:37 -0700 |
| commit | 011e3224c0292dfcb0024daf474d4ef1e00b82f0 (patch) | |
| tree | a04caad1d49ee4092cfb3bb3506ad5dba85120a4 /lib/model.ml | |
| parent | Major structural changes (diff) | |
| download | disml-011e3224c0292dfcb0024daf474d4ef1e00b82f0.tar.xz disml-011e3224c0292dfcb0024daf474d4ef1e00b82f0.zip | |
A lot is going on...
Diffstat (limited to 'lib/model.ml')
| -rw-r--r-- | lib/model.ml | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/lib/model.ml b/lib/model.ml deleted file mode 100644 index c44a289..0000000 --- a/lib/model.ml +++ /dev/null @@ -1,26 +0,0 @@ -module Make(M: S.Model) = struct - include M -end - -module Message = Make(Message) -module Guild = Make(Guild) -module Channel = Make(Channel) - -exception Type_Mismatch - -type t = - | Message of Message.t - | Guild of Guild.t - | Channel of Channel.t - -let to_message = function - | Message m -> m - | _ -> raise Type_Mismatch - -let to_guild = function - | Guild m -> m - | _ -> raise Type_Mismatch - -let to_channel = function - | Channel m -> m - | _ -> raise Type_Mismatch
\ No newline at end of file |