Improve terminal update/display

src/Dodge/Terminal.hs

@@ -14,6 +14,7 @@ module Dodge.Terminal (
     getCommands,
     tabComplete,
     tlSetStatus,
+    tlDoEffect,
 ) where
 
 import Color
@@ -21,9 +22,6 @@ import Data.Char
 import qualified Data.List as List
 import qualified Data.ListTrie.Patricia.Map.Enum as PTE
 import qualified Data.Map.Strict as M
---import Control.Monad
---import Data.Char
---import qualified Data.Map.Strict as M
 import Data.Maybe
 import Dodge.Data.Terminal.Status
 import Dodge.Data.World
@@ -32,7 +30,6 @@ import Dodge.SoundLogic
 import Dodge.Terminal.Type
 import Justify
 import LensHelp
---import ListHelp (safeHead, safeUncons)
 import Sound.Data
 
 textTerminal :: Terminal