Cleanup

2022-07-14 00:41:29 +01:00
parent dcc0596a25
commit 2a5b512d61
3 changed files with 5 additions and 1 deletions
@@ -109,6 +109,7 @@ setWristShieldPos itm cr w = w
 torch :: Item
 torch = defaultWeapon
    & itEffect .~ effectOnOffHeld createHeldLight (const $ const id)
+    & itType . iyBase .~ HELD TORCH

 createHeldLight :: Creature -> Int -> World -> World
 createHeldLight cr i w = w