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

Move universe IO effects outside of world

Browse Source
This commit is contained in:
justin
2022-07-23 12:53:20 +01:00
parent 2892bb25f0
commit 12fad676f2
12 changed files with 41 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Save.hs
+2 -2
View File
@@ -30,7 +30,7 @@ doQuicksave = saveWorldInSlot QuicksaveSlot
clearKeys :: World -> World
clearKeys = (keys .~ mempty) . (mouseButtons .~ mempty)
saveLevelStartSlot :: World -> World
saveLevelStartSlot :: Universe -> Universe
--saveLevelStartSlot = id
saveLevelStartSlot = sideEffects %~ (fmap (saveWorldInSlot LevelStartSlot) . )
saveLevelStartSlot = saveWorldInSlot LevelStartSlot
--saveLevelStartSlot = sideEffects %~ (fmap (undefined) . )