12 lines
330 B
Haskell
12 lines
330 B
Haskell
module Dodge.Item.Weapon.Remote
|
|
( pointToItem
|
|
) where
|
|
import Dodge.Data
|
|
|
|
import Control.Lens
|
|
|
|
pointToItem :: Applicative f =>
|
|
ItemPos -> (Item -> f Item) -> World -> f World
|
|
pointToItem (InInv cid invid) = creatures . ix cid . crInv . ix invid
|
|
pointToItem (OnFloor flid) = floorItems . ix flid . flIt
|