Add newtype for item id int

src/Dodge/Inventory/Location.hs

@@ -6,6 +6,7 @@ module Dodge.Inventory.Location
     )
     where
 
+import NewInt
 import qualified Data.IntSet as IS
 import Dodge.Base.You
 import Dodge.Data.SelectionList
@@ -55,7 +56,7 @@ crUpdateInvidLocations mo crid lw invid itm = lw
     & creatures . ix crid . crInv . ix invid . itLocation .~ newloc
     & itemLocations %~ IM.insert itid newloc
   where
-    itid = itm ^. itID
+    itid = itm ^. itID . unNInt
     newloc = InInv
         { _ilCrID = crid
         , _ilInvID = invid