Minor cleanup

ulrikstrid · Aug 10, 2020 · 930acd8 · 930acd8
1 parent 36f760c
commit 930acd8
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/dune-project b/dune-project
@@ -30,6 +30,8 @@
   (jose
    (>= 0.5.1))
   uri
+  yojson
+  logs
   (alcotest :with-test)
   (junit :with-test)
   (junit_alcotest :with-test)
@@ -45,9 +47,7 @@
   (mirage-crypto-pk
    (and
     :with-test
-    (>= "0.8.1")))
-  yojson
-  logs))
+    (>= "0.8.1")))))
 
 (package
  (version 1.0.0)

diff --git a/oidc.opam b/oidc.opam
@@ -14,15 +14,15 @@ depends: [
   "dune" {>= "1.11"}
   "jose" {>= "0.5.1"}
   "uri"
+  "yojson"
+  "logs"
   "alcotest" {with-test}
   "junit" {with-test}
   "junit_alcotest" {with-test}
   "containers" {with-test}
   "mirage-crypto" {with-test & >= "0.8.1"}
   "mirage-crypto-rng" {with-test & >= "0.8.1"}
   "mirage-crypto-pk" {with-test & >= "0.8.1"}
-  "yojson"
-  "logs"
 ]
 build: [
   ["dune" "subst"] {pinned}

diff --git a/oidc/Token.ml b/oidc/Token.ml
@@ -33,7 +33,7 @@ let of_json json =
 
 let of_string str = Yojson.Safe.from_string str |> of_json
 
-let clean_string str = str |> Uri.pct_encode ~component:`Userinfo
+let clean_string = Uri.pct_encode ~component:`Userinfo
 
 let basic_auth ~client_id ~secret =
   (* https://tools.ietf.org/html/rfc6749#appendix-B *)