Add newtype to floor item ids

2024-09-23 22:42:09 +01:00
parent 43b365185d
commit 265da89791
20 changed files with 193 additions and 158 deletions
@@ -30,6 +30,9 @@ import Dodge.Data.Item.Use
 import Dodge.Data.Item.Location
 import Data.Set (Set)

+data ItID = ItID
+    deriving (Eq,Ord,Show,Read)
+
 data Item = Item
    { _itUse :: ItemUse
    , _itType :: ItemType
@@ -57,5 +60,6 @@ _itUseAimStance :: Item -> AimStance
 _itUseAimStance = _aimStance . _heldAim . _itUse

 makeLenses ''Item
+deriveJSON defaultOptions ''ItID
 deriveJSON defaultOptions ''ItemAttachment
 deriveJSON defaultOptions ''Item