From fd2ac89cb403ee1f7883bc64f3d0fdbfb6cc94f0 Mon Sep 17 00:00:00 2001
From: Pierre Boutillier <pierre.boutillier@ens-lyon.org>
Date: Fri, 15 Jun 2018 15:59:44 +0200
Subject: [PATCH] http(s) remote signer returns the list of authorized keys
 when authentification is required

---
 src/bin_signer/http_daemon.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/bin_signer/http_daemon.ml b/src/bin_signer/http_daemon.ml
index 09ca54d4d..a21949a46 100644
--- a/src/bin_signer/http_daemon.ml
+++ b/src/bin_signer/http_daemon.ml
@@ -22,10 +22,10 @@ let run (cctxt : #Client_context.wallet) ~hosts ?magic_bytes ~require_auth mode
   let dir =
     RPC_directory.register0 dir Signer_services.authorized_keys begin fun () () ->
       if require_auth then
-        return None
-      else
         Handler.Authorized_key.load cctxt >>=? fun keys ->
         return (Some (keys |> List.split |> snd |> List.map Signature.Public_key.hash))
+      else
+        return None
     end in
   Lwt.catch
     (fun () ->