Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -28,7 +28,7 @@ doQuicksave :: Universe -> Universe
 doQuicksave = saveWorldInSlot QuicksaveSlot

 clearKeys :: World -> World
-clearKeys = (keys .~ mempty) . (mouseButtons .~ mempty)
+clearKeys = (cWorld . keys .~ mempty) . (cWorld . mouseButtons .~ mempty)

 saveLevelStartSlot :: Universe -> Universe
 --saveLevelStartSlot = id