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