Make examine inventory controlled by item, perhaps still buggy

src/Dodge/Data/Terminal.hs

@@ -11,6 +11,7 @@ import Data.Aeson
 import Data.Aeson.TH
 import qualified Data.Map.Strict as M
 import Dodge.Data.WorldEffect
+import Dodge.Data.BlBl
 
 data TerminalStatus = TerminalOff | TerminalBusy | TerminalReady
     deriving Eq
@@ -85,11 +86,6 @@ data TerminalToggle = TerminalToggle
     }
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data BlBl
-    = BlNegate
-    | BlConst Bool
-    | BlId
-    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data EffectArguments
     = NoArguments {_cmdEffect :: [TerminalLine]}
@@ -135,7 +131,6 @@ concat <$> mapM (deriveJSON defaultOptions)
     , ''TmTm
     , ''TerminalLine
     , ''TerminalBootProgram
-    , ''BlBl
     , ''TerminalToggle
     , ''EffectArguments
     , ''TerminalCommandEffect