Implement zipper for attachment trees

2024-10-05 14:39:34 +01:00
parent 71d4802a4a
commit 164beeea6d
23 changed files with 391 additions and 277 deletions
@@ -13,6 +13,7 @@ module Dodge.Data.Item (
    module Dodge.Data.Item.Location,
 ) where

+import qualified Data.IntMap.Strict as IM
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -34,6 +35,7 @@ data Item = Item
    , _itID :: NewInt ItmInt
    , _itLocation :: ItemLocation
    , _itEffect :: ItEffect
+    , _itAmmoSlots :: IM.IntMap AmmoType
    , _itInvSize :: Int
    , _itDimension :: ItemDimension
    , _itCurseStatus :: CurseStatus