Start keeping track of item equip status internally (partially done)

src/Dodge/Data/Equipment/Misc.hs

@@ -25,7 +25,7 @@ data EquipPosition
     | OnRightWrist
     | OnLegs
     | OnSpecial
-    deriving (Eq, Ord)
+    deriving (Eq, Ord,Show,Read)
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 data Hotkey = HotkeyQ
     | HotkeyE

src/Dodge/Data/Item/HeldUse.hs

@@ -24,7 +24,7 @@ data Euse
     | ECamouflage {_euseCamouflageStatus :: CamouflageStatus}
     | EonWristShield
     | EoffWristShield
-    | EFuelSource {_euseFuelAmount :: Int, _euseFuelMax :: Int}
+--    | EFuelSource {_euseFuelAmount :: Int, _euseFuelMax :: Int}
     | EBatterySource {_euseBatteryAmount :: Int, _euseBatteryMax :: Int}
     | EAmmoSource 
         { _euseAmmoAmount :: Int

src/Dodge/Data/Item/Location.hs

@@ -5,6 +5,7 @@
 {-# LANGUAGE EmptyDataDeriving #-}
 module Dodge.Data.Item.Location where
 
+import Dodge.Data.Equipment.Misc
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -31,6 +32,7 @@ data ItemLocation
         , _ilIsRoot :: Bool
         , _ilIsSelected :: Bool
         , _ilIsAttached :: Bool
+        , _ilEquipPosition :: Maybe EquipPosition
         }
     | OnTurret {_ilTuID :: Int}
     | OnFloor {_ilFlID :: NewInt FloorInt}

src/Dodge/Data/Item/Use.hs

@@ -50,13 +50,8 @@ data ItemUse
         }
     | UseConsume { _cUse :: Cuse }
     | UseEquip { _uequipEffect :: EquipEffect }
-    | UseCraft
     | UseAttach {_uaParams :: AttachParams}
-    | UseAmmoMag
---        { _amagLoadStatus :: ReloadStatus
---        , _amagParams :: AmmoParams
---        , _amagType :: AmmoType
---        }
+    | UseNothing
     | UseScope { _uScope :: Scope }
     | UseBulletMod { _ubMod :: BulletMod }
     deriving (Eq, Show, Read)