Make examine inventory controlled by item, perhaps still buggy

src/Dodge/Data/Item/Effect.hs

@@ -1,13 +1,17 @@
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
-module Dodge.Data.Item.Effect where
+module Dodge.Data.Item.Effect (
+    module Dodge.Data.Item.Effect,
+    module Dodge.Data.BlBl,
+) where
 
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
+import Dodge.Data.BlBl
 
 data ItEffect = ItEffect
     { _ieInv :: ItInvEffect --Item -> Creature -> World -> World
@@ -23,6 +27,8 @@ data ItInvEffect
     | RemoveShieldWall
     | EffectWhileRoot ItInvEffect
     | EffectWhileAttached ItInvEffect
+    | ItemUseToggle BlBl
+    | ItemCancelExamineInventory
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data ItDropEffect = NoDropEffect