remove unused parameter

voodoos · Apr 25, 2024 · 204b875 · 204b875
1 parent 052d9af
commit 204b875
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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 ? *)