14 lines
260 B
Haskell
14 lines
260 B
Haskell
module Dodge.Inventory.Lock (
|
|
lockInv,
|
|
unlockInv,
|
|
) where
|
|
|
|
import Control.Lens
|
|
import Dodge.Data.World
|
|
|
|
lockInv :: World -> World
|
|
lockInv = cWorld . lWorld . lInvLock .~ True
|
|
|
|
unlockInv :: World -> World
|
|
unlockInv = cWorld . lWorld . lInvLock .~ False
|