Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
OCamlPro
osh
Commits
5c2fc11c
Unverified
Commit
5c2fc11c
authored
Oct 07, 2021
by
zapashcanon
Browse files
minor fix (no transitive deps)
parent
2a95bceb
Changes
4
Show whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
5 additions
and
3 deletions
+5
-3
dune-project
dune-project
+2
-0
example/example.ml
example/example.ml
+1
-1
src/dune
src/dune
+1
-1
src/server.ml
src/server.ml
+1
-1
No files found.
dune-project
View file @
5c2fc11c
...
...
@@ -8,6 +8,8 @@
(maintainers "Léo Andrès <contact@ndrs.fr>")
(implicit_transitive_deps false)
(source
(github ocamlpro/osh))
...
...
example/example.ml
View file @
5c2fc11c
...
...
@@ -9,4 +9,4 @@ let () =
|
Error
(
_code
,
msg
)
->
Format
.
eprintf
"error: %s@."
msg
;
exit
1
|
Ok
badge
->
Format
.
printf
"Here's your badge:@.%s@."
badge
.
body
|
Ok
badge
->
Format
.
printf
"Here's your badge:@.%s@."
badge
.
Ezcurl
.
body
src/dune
View file @
5c2fc11c
(executable
(name server)
(modules content server template)
(libraries dream ezcurl ocb omd))
(libraries dream ezcurl ocb omd
yojson
))
(rule
(targets template.ml)
...
...
src/server.ml
View file @
5c2fc11c
...
...
@@ -76,7 +76,7 @@ let () =
(
Format
.
sprintf
"Failed to query the API: curl error: %s"
msg
)
|
Ok
response
->
(
let
open
Yojson
.
Basic
in
let
response
=
from_string
response
.
body
in
let
response
=
from_string
response
.
Ezcurl
.
body
in
let
response
=
response
|>
Util
.
member
"workflow_runs"
|>
Util
.
to_list
in
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment