Move towards simplifying terminal lines/effects

src/Dodge/InputFocus.hs

@@ -1,8 +1,6 @@
-module Dodge.InputFocus (
-    inTextInputFocus,
-) where
+module Dodge.InputFocus (inTextInputFocus) where
 
-import Control.Monad
+import Dodge.Data.Terminal.Status
 import Data.Maybe
 import Dodge.Data.World
 import LensHelp
@@ -26,10 +24,9 @@ textInputFocus w = case w ^? hud . hudElement . subInventory of
         Just (-1) -> Just $ hud . hudElement . subInventory . ciFilter . _Just
         _ -> Nothing
     Just DisplayTerminal{_termID = tmid} -> do
-        connectionstatus <- w ^? cWorld . lWorld . terminals . ix tmid . tmStatus
---        guard $ connectionstatus == TerminalTextInput
+--        connectionstatus <- w ^? cWorld . lWorld . terminals . ix tmid . tmStatus
+        --        guard $ connectionstatus == TerminalTextInput
         return $ cWorld . lWorld . terminals . ix tmid . tmStatus . tiText
     _ -> Nothing
   where
     he = w ^. hud . hudElement
-