Cleanup

src/Dodge/Placement/Instance/Terminal.hs

@@ -58,7 +58,7 @@ termButton = Button
         , _btID = 0
         , _btText = "TERMINAL"
         , _btState = BtOff
-        , _btTerminalParams = const $ TerminalParams [] [] 10 "TERMINAL" Nothing Nothing []
+        , _btTerminalParams = const $ TerminalParams [] [] 10 "TERMINAL" Nothing Nothing [] []
         }
 
 
@@ -117,7 +117,8 @@ genTermMessage f = \gp _ -> TerminalParams
     ,_termSel = Nothing
 --    ,_termOptions = []
     ,_termInput   = Nothing
-    ,_termCommands = []
+    ,_termScrollCommands = []
+    ,_termWriteCommands = []
     }
   where
     totermline s = TerminalLineDisplay 0 (const (s,white))