diff options
| author | Adelyn Breelove <[email protected]> | 2019-01-29 14:18:16 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-01-29 14:18:16 -0700 |
| commit | d4abffca092879e959ab291ca369671c047b4125 (patch) | |
| tree | ddcbb3a56dd406c8fca11c43130e494815ba4254 /lib/models | |
| parent | Remove some debug code (diff) | |
| download | disml-d4abffca092879e959ab291ca369671c047b4125.tar.xz disml-d4abffca092879e959ab291ca369671c047b4125.zip | |
Make a few things more legible, update build and readme
Diffstat (limited to 'lib/models')
| -rw-r--r-- | lib/models/snowflake.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/models/snowflake.ml b/lib/models/snowflake.ml index 44b0a48..92c692c 100644 --- a/lib/models/snowflake.ml +++ b/lib/models/snowflake.ml @@ -5,7 +5,7 @@ type t = Int.t [@@deriving sexp] let of_yojson_exn d = Yojson.Safe.Util.to_string d |> Int.of_string
let of_yojson d =
- try of_yojson_exn d |> Ok
+ try Ok (of_yojson_exn d)
with Yojson.Safe.Util.Type_error (why,_) -> Error why
let to_yojson s : Yojson.Safe.json = `String (Int.to_string s)
|