Commit before moving targeting

src/Dodge/Data/Item/HeldUse.hs

@@ -9,6 +9,7 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.CamouflageStatus
 import Dodge.Data.Item.Combine
+import Control.Lens
 
 data Huse
     = HeldDoNothing
@@ -35,13 +36,14 @@ data Cuse
 
 data Euse
     = EDoNothing
-    | EDetector Detector
+    | EDetector {_euseDetector :: Detector}
     | EMagShield
     | EWristShield
     | EHeadLamp
-    | ECamouflage CamouflageStatus
+    | ECamouflage {_euseCamouflageStatus :: CamouflageStatus}
     | EonWristShield
     | EoffWristShield
+    | EFuelSource {_euseFuelAmount :: Int, _euseFuelMax :: Int}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Luse
@@ -93,6 +95,7 @@ data HeldMod
     | BangConeMod
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
+makeLenses ''Euse
 deriveJSON defaultOptions ''Cuse
 deriveJSON defaultOptions ''HeldMod
 deriveJSON defaultOptions ''Euse