Cleanup

2025-12-26 15:43:21 +00:00
parent 3c07069adc
commit 3f7eeb871c
5 changed files with 44 additions and 61 deletions
@@ -51,16 +51,11 @@ putTerminalFull f mc tm =
 putTerminal :: Machine -> Terminal -> Placement
 putTerminal = putTerminalFull (\_ _ _ -> Nothing)

+tmMachine :: Machine
+tmMachine = defaultMachine & mcType .~ McTerminal & mcHP .~ 100
+
 putMessageTerminal :: Terminal -> Placement
-putMessageTerminal =
-    putTerminal $
-        defaultMachine
-            & mcType .~ McTerminal
-            & mcHP .~ 100
+putMessageTerminal = putTerminal tmMachine

 putImmediateMessageTerminal :: Terminal -> Placement
-putImmediateMessageTerminal =
-    putTerminalImediateAccess $
-        defaultMachine
-            & mcType .~ McTerminal
-            & mcHP .~ 100
+putImmediateMessageTerminal = putTerminalImediateAccess tmMachine