Cleanup, allow more general magShield deflection

src/Dodge/Data/Item/HeldUse.hs

@@ -6,6 +6,7 @@
 module Dodge.Data.Item.HeldUse where
 
 --import Dodge.Data.Item.Use.Consumption.Ammo
+import Dodge.Data.Magnet
 import Data.Aeson
 import Data.Aeson.TH
 import Control.Lens
@@ -17,19 +18,11 @@ data Cuse
 
 data Euse
     = EDoNothing
-    | EMagShield
+    | EMagShield MagnetBuBu
     | EWristShield
     | EHeadLamp
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
---data Luse
---    = LDoNothing
---    | LRewind
---    | LTimePause
---    | LTimeScroll
---    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 makeLenses ''Euse
 deriveJSON defaultOptions ''Cuse
 deriveJSON defaultOptions ''Euse
---deriveJSON defaultOptions ''Luse