Add newtype for item id int

2024-09-28 23:34:32 +01:00
parent 241191ee1b
commit 7d72fa3c5d
14 changed files with 274 additions and 267 deletions
@@ -16,6 +16,7 @@ module Dodge.Data.Item (
    module Dodge.Data.Item.Location,
 ) where

+import NewInt
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -36,7 +37,7 @@ data ItID = ItID
 data Item = Item
    { _itUse :: ItemUse
    , _itType :: ItemType
-    , _itID :: Int
+    , _itID :: NewInt ItmInt
    , _itLocation :: ItemLocation
    , _itEffect :: ItEffect
    , _itInvSize :: Float