Add newtype for item id int

src/Dodge/Data/Item/Location.hs

@@ -21,6 +21,8 @@ data TurretInt
   deriving (Eq,Ord,Show,Read)
 data CrInt = CrInt
   deriving (Eq,Ord,Show,Read)
+data ItmInt = ItmInt
+  deriving (Eq,Ord,Show,Read)
 
 data ItemLocation
     = InInv 
@@ -39,3 +41,5 @@ makeLenses ''ItemLocation
 deriveJSON defaultOptions ''InvInt
 deriveJSON defaultOptions ''FloorInt
 deriveJSON defaultOptions ''ItemLocation
+deriveJSON defaultOptions ''ItmInt
+deriveJSON defaultOptions ''CrInt