Cleanup

2022-12-28 01:12:10 +00:00
parent c71af99ff7
commit 2d4a55dee0
8 changed files with 35 additions and 21 deletions
@@ -81,7 +81,7 @@ invDisplayParams w =
        _ -> False

 inventoryDisplay :: World -> Configuration -> SelectionList () -> Picture
-inventoryDisplay w = drawSelectionList (invDisplayParams w)
+inventoryDisplay = drawSelectionList . invDisplayParams

 drawSubInventory :: SubInventory -> Configuration -> World -> Picture
 drawSubInventory subinv cfig w = case subinv of