justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Refactor, try to limit dependencies

Browse Source
This commit is contained in:
justin
2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Inventory/Lock.hs
+4 -3
View File
@@ -1,9 +1,10 @@
module Dodge.Inventory.Lock where
import Dodge.Data
import Control.Lens
import Dodge.Data.World
lockInv :: Int -> World -> World
lockInv cid = cWorld . creatures . ix cid . crInvLock %~ (|| True)
lockInv cid = cWorld . creatures . ix cid . crInvLock ||~ True
unlockInv :: Int -> World -> World
unlockInv cid = cWorld . creatures . ix cid . crInvLock %~ (&& False)
unlockInv cid = cWorld . creatures . ix cid . crInvLock &&~ False