Add fix bug in terminal destruction effects

src/Dodge/Update.hs

@@ -20,7 +20,7 @@ import Sound.Data
 import Geometry
 import LensHelp
 
-import qualified Data.Text as T
+--import qualified Data.Text as T
 --import System.Random
 import Data.List
 import Data.Maybe
@@ -113,10 +113,6 @@ tmUpdate tm w = case w ^? terminals . ix (_tmID tm) . tmFutureLines . ix 0 of
     Just (TerminalLineTerminalEffect _ eff) -> w
         & pointTermParams . tmFutureLines %~ tail
         & pointTermParams %~ eff
-    Just (TerminalLineInput _) -> w 
-        & pointTermParams %~
-            ( ( tmFutureLines %~ tail )
-            . ( tmInput .~ TerminalInput T.empty True (0,0)) )
   where
     pointTermParams = terminals . ix (_tmID tm)