From 597336499c55181b53d4fbb130786c2a6781a994 Mon Sep 17 00:00:00 2001 From: justin Date: Mon, 6 Jun 2022 11:37:59 +0100 Subject: [PATCH] Add _tmMaxLines field --- src/Dodge/Data.hs | 11 ++++++----- src/Dodge/Default.hs | 1 + 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/src/Dodge/Data.hs b/src/Dodge/Data.hs index aabb38bf5..ee0f32423 100644 --- a/src/Dodge/Data.hs +++ b/src/Dodge/Data.hs @@ -955,13 +955,14 @@ data Terminal = Terminal , _tmMachineID :: Int , _tmName :: String , _tmDisplayedLines :: [(String,Color)] - , _tmFutureLines :: [TerminalLine] + , _tmFutureLines :: [TerminalLine] + , _tmMaxLines :: Int , _tmTitle :: String - , _tmSel :: Maybe (Int,Int) - , _tmInput :: Maybe T.Text + , _tmSel :: Maybe (Int,Int) + , _tmInput :: Maybe T.Text , _tmScrollCommands :: [TerminalCommand] - , _tmWriteCommands :: [TerminalCommand] - , _tmDeathEffect :: Terminal -> World -> World + , _tmWriteCommands :: [TerminalCommand] + , _tmDeathEffect :: Terminal -> World -> World } data Machine = Machine { _mcID :: Int diff --git a/src/Dodge/Default.hs b/src/Dodge/Default.hs index 06d3f8770..7f9a3d775 100644 --- a/src/Dodge/Default.hs +++ b/src/Dodge/Default.hs @@ -250,6 +250,7 @@ defaultTerminal = Terminal , _tmName = "TESTTERMINAL" , _tmDisplayedLines = [] , _tmFutureLines = [] + , _tmMaxLines = 14 , _tmTitle = "TERMINAL IN LOCATION" , _tmSel = Nothing , _tmInput = Nothing