Make examine inventory controlled by item, perhaps still buggy

src/Dodge/WorldEffect.hs

@@ -5,6 +5,7 @@ module Dodge.WorldEffect (
     lineOutputTerminal,
 ) where
 
+import Dodge.BlBl
 import Dodge.Data.Input
 import Dodge.HeldUse
 import Dodge.Data.ComposedItem
@@ -88,12 +89,6 @@ doDeathTriggers tm = cWorld . lWorld . triggers %~ flip (foldl' $ flip doDeathTo
 doDeathToggle :: TerminalToggle -> IM.IntMap Bool -> IM.IntMap Bool
 doDeathToggle (TerminalToggle trid f) = ix trid %~ doBlBl f
 
-doBlBl :: BlBl -> Bool -> Bool
-doBlBl bb = case bb of
-    BlNegate -> not
-    BlConst bl -> const bl
-    BlId -> id
-
 doTerminalBootProgram :: TerminalBootProgram -> Terminal -> World -> [TerminalLine]
 doTerminalBootProgram tbp = case tbp of
     TerminalBootMempty -> \_ _ -> []