Add _tmMaxLines field

src/Dodge/Data.hs

@@ -956,6 +956,7 @@ data Terminal = Terminal
     , _tmName       :: String
     , _tmDisplayedLines :: [(String,Color)]
     , _tmFutureLines    :: [TerminalLine]
+    , _tmMaxLines   :: Int
     , _tmTitle  :: String
     , _tmSel    :: Maybe (Int,Int)
     , _tmInput  :: Maybe T.Text

src/Dodge/Default.hs

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