From 204b87510794aed34438eb53abcebd708c700df6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ulysse=20G=C3=A9rard?= Date: Thu, 25 Apr 2024 22:09:59 +0200 Subject: [PATCH] remove unused parameter --- bin/main.ml | 4 ++-- bin/ui_playlist.ml | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/bin/main.ml b/bin/main.ml index 248a5c8..1f06790 100644 --- a/bin/main.ml +++ b/bin/main.ml @@ -76,14 +76,14 @@ let app _idb = in let main_list = - Ui_playlist.make ~reset_playlist:P.reset_playlist ~fetch player main_view + Ui_playlist.make ~reset_playlist:P.reset_playlist ~fetch main_view in let now_playing = let playlist = Lwd.map (Lwd.get Player.playstate.playlist) ~f:(function | None -> Elwd.span [ `P (El.txt' "Nothing playing") ] | Some playlist -> - Ui_playlist.make ~reset_playlist:P.reset_playlist ~fetch player + Ui_playlist.make ~reset_playlist:P.reset_playlist ~fetch (Lwd.pure (Fut.ok playlist))) in (*todo: do we need that join ?*) diff --git a/bin/ui_playlist.ml b/bin/ui_playlist.ml index f8f9faa..1a186ab 100644 --- a/bin/ui_playlist.ml +++ b/bin/ui_playlist.ml @@ -16,7 +16,7 @@ let columns () = v "Title" "1fr" @@ [ `P (El.txt' "Title") ]; |] -let make ~reset_playlist ~fetch _ (view : (Db.View.t, 'a) Fut.result Lwd.t) = +let make ~reset_playlist ~fetch (view : (Db.View.t, 'a) Fut.result Lwd.t) = let img_url server_id item_id = let servers = (* should this be reactive ? *)