Extract StatusPayload from PullRequest

Schniz · Nov 22, 2018 · 26f024f · 26f024f
1 parent 66016a2
commit 26f024f
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 34 deletions.
diff --git a/src/PullRequest.re b/src/PullRequest.re
@@ -4,40 +4,6 @@ type pull_request = {
   statuses_url: string,
 };
 
-module StatusPayload = {
-  type state =
-    | Pending
-    | Success;
-  type t = {
-    description: string,
-    context: string,
-    state,
-  };
-  let string_of_state =
-    fun
-    | Success => "success"
-    | Pending => "pending";
-  let to_json = spp =>
-    Ezjsonm.(
-      dict([
-        ("state", string_of_state(spp.state) |> string),
-        ("description", string(spp.description)),
-        ("context", string(spp.context)),
-      ])
-    );
-
-  let success = {
-    description: "Alright! PR has valid label(s).",
-    context: "pr/labels",
-    state: Success,
-  };
-  let pending = {
-    description: "Don't forget to add a PR label!",
-    context: "pr/labels",
-    state: Pending,
-  };
-};
-
 let startsWith = (substr, str) =>
   Stringext.find_from(~pattern=substr, str) != None;
 let isValidLabel = startsWith("PR: ");

diff --git a/src/StatusPayload.re b/src/StatusPayload.re
@@ -0,0 +1,31 @@
+type state =
+| Pending
+| Success;
+type t = {
+  description: string,
+  context: string,
+  state,
+};
+let string_of_state =
+fun
+| Success => "success"
+| Pending => "pending";
+let to_json = spp =>
+Ezjsonm.(
+  dict([
+       ("state", string_of_state(spp.state) |> string),
+       ("description", string(spp.description)),
+       ("context", string(spp.context)),
+  ])
+);
+
+let success = {
+  description: "Alright! PR has valid label(s).",
+  context: "pr/labels",
+  state: Success,
+};
+let pending = {
+  description: "Don't forget to add a PR label!",
+  context: "pr/labels",
+  state: Pending,
+};