Add options page scrolling

2022-06-25 09:28:45 +01:00
parent 3c2df2542a
commit dd0afc6166
12 changed files with 74 additions and 44 deletions
@@ -40,7 +40,7 @@ hudDrawings cfig w = case _hudElement $ _hud w of
 drawInGameHUD :: Configuration -> World -> Picture
 drawInGameHUD cfig w = pictures
    [ winScale cfig . dShadCol white $ displayHP 0 cfig w
-    , listPicturesAt (halfWidth cfig) 0 cfig $ map text (_testString w w)
+    , listPicturesAt (halfWidth cfig) 0 cfig $ map text (_testString w cfig w)
    , inventoryDisplay cfig w
    ]