From 930acd801e6ba496ac1be857de7d17abc3b4e72e Mon Sep 17 00:00:00 2001
From: Ulrik <ulrik.strid@outlook.com>
Date: Mon, 10 Aug 2020 15:28:55 +0200
Subject: [PATCH] Minor cleanup

---
 dune-project  | 6 +++---
 oidc.opam     | 4 ++--
 oidc/Token.ml | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/dune-project b/dune-project
index 6fbc745..36ac422 100644
--- 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
index a8c7230..6afa420 100644
--- a/oidc.opam
+++ b/oidc.opam
@@ -14,6 +14,8 @@ depends: [
   "dune" {>= "1.11"}
   "jose" {>= "0.5.1"}
   "uri"
+  "yojson"
+  "logs"
   "alcotest" {with-test}
   "junit" {with-test}
   "junit_alcotest" {with-test}
@@ -21,8 +23,6 @@ depends: [
   "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
index defe4f4..2ddc19c 100644
--- 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 *)