#4 Setup interaction

2022-12-23 09:42:34 +01:00 · 2022-12-23 09:42:34 +01:00 · 9addf1ed07
commit 9addf1ed07
parent ef784c2dbc
13 changed files with 223 additions and 33 deletions
--- a/lib/RPGEngine/Render/LevelSelection.hs
+++ b/lib/RPGEngine/Render/LevelSelection.hs
@ -21,7 +21,7 @@ renderLevelSelection state = result
 ----------------------------------------------------------------------

 renderLevelList :: Renderer State
-renderLevelList LevelSelection{ levelList = list, selector = selector } = everything
+renderLevelList (LevelSelection list selector) = everything
    where everything       = pictures $ map render entries
          sel              = selection selector
          entries          = zip [0::Int .. ] list