From 929835348c3e7f1077ecae11a225c22499182987 Mon Sep 17 00:00:00 2001 From: PizieDust Date: Mon, 23 Sep 2024 17:26:52 +0200 Subject: [PATCH] lint --- albatross.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/albatross.ml b/albatross.ml index be998a4a..9f1797b0 100644 --- a/albatross.ml +++ b/albatross.ml @@ -224,8 +224,7 @@ module Make (P : Mirage_clock.PCLOCK) (S : Tcpip.Stack.V4V6) = struct continue_reading name tls_flow >|= fun output -> Result.map (fun r -> (r, output)) (decode_reply d) - let raw_query t ?(name = Vmm_core.Name.root) certificates cmd f - = + let raw_query t ?(name = Vmm_core.Name.root) certificates cmd f = let open Lwt.Infix in S.TCP.create_connection (S.tcp t.stack) t.remote >>= function | Error e ->