Cleanup

2022-07-26 10:22:55 +01:00
parent 0d479cba87
commit 5c8e786dfa
24 changed files with 191 additions and 158 deletions
@@ -62,7 +62,7 @@ doQuicksave :: Universe -> Universe
 doQuicksave = saveWorldInSlot QuicksaveSlot

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

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