Throwing out code can be so much fun. Pry `|>` and `@@` from my cold, dead hands.

refactor.diff

diff --git a/src/slacko.ml b/src/slacko.ml
index 69695cd..7f18f4c 100644
--- a/src/slacko.ml
+++ b/src/slacko.ml
@@ -394,8 +394,8 @@ let presence_set token presence =
     |> definitely_add "presence" presence
   in query uri
 
-let search_all token ?sort ?sort_dir ?highlight ?count ?page query_ =
-  let uri = endpoint "search.all"
+let search base token ?sort ?sort_dir ?highlight ?count ?page query_ =
+  let uri = base
     |> definitely_add "token" token
     |> definitely_add "query" query_
     |> optionally_add "sort" sort
@@ -405,27 +405,9 @@ let search_all token ?sort ?sort_dir ?highlight ?count ?page query_ =
     |> optionally_add "page" page
   in query uri
 
-let search_files token ?sort ?sort_dir ?highlight ?count ?page query_ =
-  let uri = endpoint "search.files"
-    |> definitely_add "token" token
-    |> definitely_add "query" query_
-    |> optionally_add "sort" sort
-    |> optionally_add "sort_dir" sort_dir
-    |> optionally_add "highlight" highlight
-    |> optionally_add "count" count
-    |> optionally_add "page" page
-  in query uri
-
-let search_messages token ?sort ?sort_dir ?highlight ?count ?page query_ =
-  let uri = endpoint "search.messages"
-    |> definitely_add "token" token
-    |> definitely_add "query" query_
-    |> optionally_add "sort" sort
-    |> optionally_add "sort_dir" sort_dir
-    |> optionally_add "highlight" highlight
-    |> optionally_add "count" count
-    |> optionally_add "page" page
-  in query uri
+let search_all = search @@ endpoint "search.all"
+let search_files = search @@ endpoint "search.files"
+let search_messages = search @@ endpoint "search.messages"
 
 let stars_list ?user ?count ?page token =
   let uri = endpoint "stars.list"