justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2022-12-28 01:12:10 +00:00
parent c71af99ff7
commit 2d4a55dee0
8 changed files with 35 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/HUD.hs
+1 -1
View File
@@ -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
src/Dodge/Render/MenuScreen.hs
+1 -1
View File
@@ -15,7 +15,7 @@ drawMenuScreen :: Configuration -> ScreenLayer -> Picture
drawMenuScreen cfig screen = case screen of
OptionScreen{_scTitle = titf, _scSelectionList = selpos, _scListDisplayParams = ldps} ->
drawOptions ldps cfig titf selpos
(InputScreen inputstr help) -> drawInputMenu cfig ('>' : T.unpack inputstr) help
InputScreen inputstr help -> drawInputMenu cfig ('>' : T.unpack inputstr) help
drawInputMenu ::
Configuration ->