Make all items have an id an associated location

src/Dodge/Data/Item.hs

@@ -31,7 +31,7 @@ import Dodge.Data.Item.Targeting
 data Item = Item
     { _itUse :: ItemUse
     , _itType :: ItemType
-    , _itID :: Maybe Int
+    , _itID :: Int
     , _itLocation :: ItemLocation
     , _itIsHeld :: Bool
     , _itEffect :: ItEffect

src/Dodge/Data/Item/Misc.hs

@@ -35,8 +35,9 @@ data ItemValueType = MundaneItem | ArtefactItem
 
 data ItemLocation
     = InInv {_ipCrID :: Int, _ipInvID :: Int}
+    | OnTurret {_ipTuID :: Int}
     | OnFloor {_ipFlID :: Int}
-    | VoidItm
+    | InVoid
     deriving (Eq, Show, Read)
 
 makeLenses ''ItemDimension