Cleanup

2025-08-27 19:28:56 +01:00
parent dda0526180
commit 871d695574
2 changed files with 1 additions and 3 deletions
@@ -61,7 +61,6 @@ data TmWdWd
    | TmWdWdDoDeathTriggers
    | TmTmClearDisplayedLines
    | TmTmSetStatus TerminalStatus
--    | TmGetSensor String

 makeLenses ''Terminal
 makeLenses ''TerminalLine
@@ -425,8 +425,7 @@ advanceScrollAmount =

 updatePastWorlds :: World -> World
 updatePastWorlds w =
-    w
-        & pastWorlds %~ (forceFoldable . take 100 . ((w ^. cWorld . lWorld) :))
+    w & pastWorlds %~ (forceFoldable . take 100 . ((w ^. cWorld . lWorld) :))

 doWorldEvents :: World -> World
 doWorldEvents w =