Commit before changing TerminalCommand to produce [TerminalLine]

src/Dodge/Default.hs

@@ -18,6 +18,7 @@ import Shape
 
 import Control.Lens
 import qualified Data.IntMap.Strict as IM
+import qualified Data.Text as T
 import qualified Data.Map.Strict as M
 --import qualified Data.Vector as V
 --import Data.Monoid
@@ -252,12 +253,17 @@ defaultTerminal = Terminal
     , _tmFutureLines = []
     , _tmMaxLines = 14
     , _tmTitle = "TERMINAL IN LOCATION"
-    , _tmInput = Nothing
+    , _tmInput = defaultTerminalInput
     , _tmScrollCommands = []
     , _tmWriteCommands  = []
     , _tmDeathEffect    = const id
     , _tmStatus = Disconnected
     }
+defaultTerminalInput = TerminalInput
+    { _tiText = T.pack ""
+    , _tiFocus = True
+    , _tiSel = (0,0)
+    }
 
 defaultButton :: Button
 defaultButton = Button