[OCaml] Mobile-friendly clone of cgit.
Remove useless type annotations.
Not useless per se---just better located in the upcoming interface file.
lib/resolvers.ml
@@ -112,7 +112,7 @@
112
112
module Tree = struct
113
113
type t = { hash : string; entries : Entry.t list }
114
114
115
Removed:
let to_t (tree : Store.Value.Tree.t) =
115
Added:
let to_t tree =
116
116
let hash = Store.Value.Tree.hash tree |> Int.to_string in
117
117
let entries = Store.Value.Tree.to_list tree |> List.map Entry.to_t in
118
118
{ hash; entries }
@@ -124,7 +124,7 @@
124
124
| Git.Value.Tree tree -> Lwt_result.return (to_t tree)
125
125
| _ -> Lwt_result.fail @@ `Msg ("no tree for id " ^ id)
126
126
127
Removed:
let head repo : (t, Store.error) Lwt_result.t =
127
Added:
let head repo =
128
128
let* store = store repo in
129
129
let* hash =
130
130
Store.Ref.resolve store Git.Reference.head
@@ -136,8 +136,7 @@
136
136
module Blob = struct
137
137
type t = { content : string }
138
138
139
Removed:
let to_t (blob : Store.Value.Blob.t) =
140
Removed:
{ content = Store.Value.Blob.to_string blob }
139
Added:
let to_t blob = { content = Store.Value.Blob.to_string blob }
141
140
142
141
let of_id repo id =
143
142
let* store = store repo in