Merge pull request #154 from idkjs/patch-1

umeshp7 · web-flow · commit 06dd1d1e716e · 2020-03-02T12:13:19.000+05:30
ignore unused `resp` variable on line 392
diff --git a/codegens/ocaml-cohttp/lib/ocaml.js b/codegens/ocaml-cohttp/lib/ocaml.js
@@ -389,7 +389,7 @@ self = module.exports = {
     if (bodySnippet !== '') {
       codeSnippet += '~body ';
     }
-    codeSnippet += `${methodArg} uri >>= fun (resp, body) ->\n`;
+    codeSnippet += `${methodArg} uri >>= fun (_resp, body) ->\n`;
     codeSnippet += `${indent}body |> Cohttp_lwt.Body.to_string >|= fun body -> body\n\n`;
     codeSnippet += 'let () =\n';
     codeSnippet += `${indent}let respBody = Lwt_main.run reqBody in\n`;

Original file line number	Diff line number	Diff line change
`@@ -389,7 +389,7 @@ self = module.exports = {`
`389`	`389`	`if (bodySnippet !== '') {`
`390`	`390`	`codeSnippet += '~body ';`
`391`	`391`	`}`
`392`		- codeSnippet += `${methodArg} uri >>= fun (resp, body) ->\n`;
	`392`	+ codeSnippet += `${methodArg} uri >>= fun (_resp, body) ->\n`;
`393`	`393`	codeSnippet += `${indent}body \|> Cohttp_lwt.Body.to_string >\|= fun body -> body\n\n`;
`394`	`394`	`codeSnippet += 'let () =\n';`
`395`	`395`	codeSnippet += `${indent}let respBody = Lwt_main.run reqBody in\n`;