Remove terminal line code

src/Dodge/Data/Terminal.hs

@@ -64,10 +64,6 @@ data TerminalLine
         { _tlPause :: Int
         , _tlString :: TerminalLineString -- World -> (String, Color)
         }
-    | TerminalLineTerminalEffect
-        { _tlPause :: Int
-        , _tlTermEffect :: TmTm -- Terminal -> Terminal
-        }
     | TerminalLineEffect
         { _tlPause :: Int
         , _tlEffect :: TmWdWd --Terminal -> World -> World

src/Dodge/TmTm.hs

@@ -1,12 +0,0 @@
-module Dodge.TmTm where
-
---import Control.Lens
-import Dodge.Data.Terminal
-
-doTmTm :: TmTm -> Terminal -> Terminal
-doTmTm tmtm = case tmtm of
---    TmTmClearDisplayedLines -> tmDisplayedLines .~ []
---    TmTmSetStatus s -> tmStatus .~ s
-    TmId -> id
---    TmTmSetPartialCommand ms -> tmPartialCommand .~ ms
-

src/Dodge/Update.hs

@@ -55,7 +55,6 @@ import Dodge.SmoothScroll
 import Dodge.SoundLogic
 import Dodge.Spark
 import Dodge.Terminal.Type
-import Dodge.TmTm
 import Dodge.TractorBeam.Update
 import Dodge.Update.Camera
 import Dodge.Update.Cloud
@@ -514,10 +513,6 @@ tmUpdate tm w = case w ^? cWorld . lWorld . terminals . ix (_tmID tm) . tmFuture
         w
             & pointTermParams . tmFutureLines %~ tail
             & doTmWdWd eff tm
-    Just (TerminalLineTerminalEffect _ eff) ->
-        w
-            & pointTermParams . tmFutureLines %~ tail
-            & pointTermParams %~ doTmTm eff
   where
     pointTermParams = cWorld . lWorld . terminals . ix (_tmID tm)