Simplify analyser terminal

src/Dodge/Terminal.hs

@@ -6,7 +6,6 @@ module Dodge.Terminal (
     textTerminal,
     simpleTermMessage,
     damageCodeCommand,
-    sensorCommand,
     makeColorTermLine,
     makeTermPara,
     terminalReturnEffect,
@@ -16,7 +15,6 @@ module Dodge.Terminal (
     tlDoEffect,
 ) where
 
-import Dodge.Item.Display
 import Color
 import Data.Char
 import qualified Data.List as List
@@ -58,7 +56,6 @@ getCommand w tm = \case
     TCInfo x z -> PTE.singleton x (PTE.singleton "" (makeTermPara z))
     TCBase -> quitCommand <> toggleCommands tm
     TCDamageCommand -> damageCodeCommand w tm
-    TCSensorInfo -> sensorCommand w tm
 
 damageCodeCommand :: World -> Terminal -> PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
 damageCodeCommand w _ 
@@ -78,22 +75,6 @@ decodeSensorType st w = fromMaybe [] $ do
     x <- w ^? cWorld . cwGen . cwgParams . sensorCoding . ix st
     return [makeTermLine $ show x]
 
--- ugly
-sensorCommand :: World -> Terminal -> PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
-sensorCommand w tm = PTE.singleton "SENSOR" $ fromMaybe mempty $ do
-    ProximitySensor _ _ r b <- w ^? cWorld . lWorld . machines . ix (tm ^. tmMachineID) . mcType . _McSensor
-    return $ PTE.fromList
-            [ ("", makeTermPara $ sensorReqToString r b)
-            ]
-
-sensorReqToString :: ProximityRequirement -> Bool -> String
-sensorReqToString pr = \case
-    True -> "SENSOR TEST PASSED."
-    False -> "SENSOR REQUIRES: " ++ case pr of
-        RequireHealth x -> "HEALTH ABOVE " ++ show x
-        RequireEquipment x -> itemBaseName x
-    
-
 toggleCommands :: Terminal -> PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
 toggleCommands tm 
     | null ts = mempty