Add roots and parents to adjacency function from Double Trees

2024-09-21 20:30:29 +01:00
parent 86d8e3a98a
commit 2154abfb1d
10 changed files with 118 additions and 124 deletions
@@ -13,7 +13,6 @@ data ItEffect = ItEffect
    { _ieInv :: ItInvEffect --Item -> Creature -> World -> World
    , _ieOnInsert :: ItInvEffect
    , _ieOnDrop :: ItInvEffect --Item -> Creature -> World -> World
-    , _ieWhileAiming :: ItInvEffect
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)