Add _tmMaxLines field

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

src/Dodge/Default.hs

@@ -250,6 +250,7 @@ defaultTerminal = Terminal
     , _tmName = "TESTTERMINAL"
     , _tmDisplayedLines = []
     , _tmFutureLines = []
+    , _tmMaxLines = 14
     , _tmTitle = "TERMINAL IN LOCATION"
     , _tmSel   = Nothing
     , _tmInput = Nothing