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

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}