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

Cleanup

Browse Source
This commit is contained in:
justin
2025-08-27 19:28:56 +01:00
parent dda0526180
commit 871d695574
2 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Data/Terminal.hs
-1
View File
@@ -61,7 +61,6 @@ data TmWdWd
| TmWdWdDoDeathTriggers | TmWdWdDoDeathTriggers
| TmTmClearDisplayedLines | TmTmClearDisplayedLines
| TmTmSetStatus TerminalStatus | TmTmSetStatus TerminalStatus
-- | TmGetSensor String
makeLenses ''Terminal makeLenses ''Terminal
makeLenses ''TerminalLine makeLenses ''TerminalLine
src/Dodge/Update.hs
+1 -2
View File
@@ -425,8 +425,7 @@ advanceScrollAmount =
updatePastWorlds :: World -> World updatePastWorlds :: World -> World
updatePastWorlds w = updatePastWorlds w =
w w & pastWorlds %~ (forceFoldable . take 100 . ((w ^. cWorld . lWorld) :))
& pastWorlds %~ (forceFoldable . take 100 . ((w ^. cWorld . lWorld) :))
doWorldEvents :: World -> World doWorldEvents :: World -> World
doWorldEvents w = doWorldEvents w =